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ABSTRACT 


A  computer  model  which  simulates  the  traffic  flow  of  a  Navy- 
port  has  been  developed.  The  model  causes  a  ship  to  be  placed 
in  one  of  seven  possible  states:  on  extended  operations,  in 
overhaul,  at  a  tender,  in  port  on  normal  operations,  in  port 
preparing  for  overseas  movement,  in  port  on  30-day  stand-down , 
or  on  short  deployment  on  normal  operations.  Hotel  utilities, 
which  include  steam  and  electric  power,  can  be  provided  to  a 
ship  in  port.  A  Monte  Carlo  method  is  used  to  determine  the 
length  of  stay  in  any  state.  The  model  attempts  to  berth  ships 
coming  into  port  according  to  a  pier-preference  scheme.  Input 
to  the  model  includes  a  description  of  a  ship  and  its  cycle 
times,  and  a  description  of  the  pier  in  terms  of  its  utilities 
and  the  ships  it  can  berth.  Computer  output  includes  a  summary 
of  the  time  each  ship  spends  in  each  state.  The  summary  can 
be  produced  daily,  quarterly,  or  for  the  entire  simulation 
time  of  the  run,  which  may  be  up  to  six  years. 


ADMINISTRATIVE  INFORMATION 

Model  analysis  and  programming  were  performed  by  the 
Logistics  Analysis  Group  of  the  Operations  Research  Division 
with  programming  assistance  from  the  Program  Analysis  Group 
of  the  Computer-Aided  Design  Division.  The  work  was  funded 
by  the  Naval  Facilities  Engineering  Command  with  O&MN  funds. 
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1.  INTRODUCTION 


A  Port  Simulation  Model  was  developed  by  the  Systems  Analysis 
Division  (Code  201)  of  the  Naval  Facilities  Engineering  Command  (NAVFAC) 
to  help  support  the  OPNAV  1968-69  Pier  and  Utility  Study  (Cold  Iron 
Program).  This  model  was  later  modified  to  accommodate  the  updated 
Cold  Iron  Study  obj ectives * ^  In  April  1971,  the  Systems  Analysis 
Division  requested  that  the  Operations  Research  Division  (Code  186) 
of  the  Naval  Ship  Research  and  Development  Center  (NAVSHIPRANDCEN)  pro¬ 
vide  programming  assistance  for  major  modifications  of  this  model. 

After  a  thorough  analysis  of  the  model,  members  of  the  Operations 
Research  Division  working  in  conjunction  with  the  Program  Development 
Group  (Code  1856,  NAVSHIPRANDCEN),  determined  that  the  required  modifi¬ 
cations  to  che  model  were  so  extensive  that  a  redesign  of  the  model  was 
required  This  was  accomplished  and  the  computer  simulation  program 
was  completed  by  December  1971  This  report  documents  the  revised 
simulation  program 

Section  2  of  the  report  presents  a  model  description;  Section  3 
describes  the  model  operation.  Input  and  output  are  discussed  in 
Sections  4  and  5  respectively.  Section  6  provides  recommendations  for 
future  development . 

A  program  listing  is  provided  in  Appendix  A;  Appendix  B  presents 
the  major  arrays  of  the  system.  Sample  input  and  output  are  shown  in 
Appendixes  C  and  D  respectively. 


1  "Update  of  the  Cold  Iron  Program  Study,"  Naval  Facilities  Engineering 
Command,  Facilities  Planning  Group,  Systems  Analysis  Division, 

NAVFAC  Code  201,  Study  No.  108,  15  March  1971.  (Study  performed 
by  Andrew  J.  Vero,  LTJG  Robert  J.  Kidder,  Eloy  R.  Villa,  Peter  T. 
Bidwell,  and  Wendy  A.  Budd  ) 
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2.  MODEL  DESCRIPTION 


2.1  The  System 

The  mathematical  model  is  designed  to  simulate  the  flow  of  ship 
traffic  in  a  port,  given  a  description  of  the  demands  of  each  ship  in 
the  system  on  the  port  and  the  ability  of  the  port  to  handle  them.  A 
summary  of  the  traffic  load,  and  how  it  affects  each  ship,  is  presented 
as  computer  output. 

The  model  depicts  seven  states  of  Naval  ship  operation  and  is 
structured  as  a  closed-system  queuing  process  with  limited  facilities 
in  some  of  the  states.  This  generalized  structure  is  used  to  analyze 
the  effect  of  an  increase  or  decrease  in  facilities  on  the  operation 
of  a  port.  A  simulation  model  has  been  formulated  so  that  the  con¬ 
figuration  of  homeported  ships  for  each  port  can  be  tested  against  a 
stated  ship-deployment  policy. 

Each  ship  in  the  system  must  be  in  one  of  the  following  seven 
states:  (1)  on  extended  operations,  (2)  conducting  normal  operations 

in  port,  (3)  conducting  normal  operations  out  of  port,  (4)  in  ship¬ 
yard  maintenance,"  (5)  undergoing  maintenance  at  a  tender,  (6)  in 
priority  cold  iron,  preparing  for  overseas  movement  (POM),  (7)  in 
priority  cold  iron  returned  from  overseas  extended  operations  (30-day 
stand-down) .  If  a  ship  is  waiting  for  berthing  or  utilities  to  become 
available  for  one  of  the  last  four  states,  then  it  is  considered  to 
be  in  state  2.  Cold-iron  status  is  defined  as  a  condition  in  which 
the  ship  is  provided  with  utility  services  from  land  sources  so  that 
it  .can  shut  down  all  boilers  and  utility  generating  equipment.  The 
distribution  of  all  ships  among  the  seven  states  describes  the  condition 
of  the  port. 

The  system  is  represented  in  computer  storage  by  a  set  of  four 
major  tables  which  contain  information  on  each  ship  in  the  system. 

These  tables  are  defined  in  Appendix  B.  They  include  (1)  the  ship T s 
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state  and  the  time  remaining  for  the  ship  in  that  state,  (2)  the  time 
remaining  until  the  ship  is  permitted  to  enter  either  the  POM  or 
extended  operation  state,  (3)  the  time  remaining  until  the  ship  is 
permitted  to  enter  the  shipyard  maintenance  state,  and  (4)  the  time 
remaining  until  the  Ship  is  permitted  to  enter  a  tender  maintenance 
state.  A  clock  with  a  fixed  time  increment  of  one  day  is  used  to  time 
the  simulationo  Each  day  the  table  is  checked  to  determine  which 
ships  have  completed  the  times  remaining  in  their  current  states. 

Upon  completion  of  its  time  in  a  state,  a  ship  is  moved  through  the 
system  according  to  the  diagrams  in  Figures  1  and  2.  When  a  ship 
leaving  one  state  may  enter  one  of  several  other  states,  the  state 
entered  is  determined  according  to  a  hierarchy,  as  explained  in 
Section  3.  The  amount  of  time  spent  in  a  shipyard  for  overhaul,  the 
time  between  overhauls,  the  time  spent  on  extended  operations,  and  the 
time  periods  of  extended  operation  are  obtained  by  selecting  a  sample 
via  Monte  Carlo  methods  from  suitable  normal  distributions.  The  time 
remaining  prior  to  tender  maintenance  at  the  beginning  of  each  quarter 
is  determined  by  a  uniform  distribution.  These  distributions  are 
discussed  in  Section  3.1 
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Priority  cold  iron  (30  days) 


Extended  operations 


Normal  Operations 
In  Port 


Shipyard 

Priority  cold  iron  (POM) 

Tender 

Normal  operations  -  out  of  port 


Normal  Operations 
Out  of  Port 


Shipyard 

Priority  cold  iron  (POM) 
Tender 

Normal  operations  -  in  port 


Ship  Yard 


Extended  operations 

Normal  operations  —  in  port 

Normal  operations  -  out  of  port 


Tender 


Shipyard 

Extended  operations 

Normal  operations  -  in  port 

Normal  operations  -  out  of  port 


Priority  Cold  Iron  (POM) 


Extended  operations 


Priority  Cold  Iron  (30  days) 


Shipyard 

Normal  operations  -  in  port 
Normal  operations  -  out  of  port 


Figure  1  -  Structure  of  the  Queuing  System 

(Note:  Regardless  of  the  above  flow  pattern,  the  model  considers  a 

ship  that  is  waiting  for  pier  or  utility  accommodations  to  be  in  state 
2,  "normal  operations  in  port.") 
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Figure  2  -  Flow  Diagram  of  the  Queuing  System 


2.2 


The  Ships 


Identification  information  and  ship  characteristics  for  each 
ship  homeported  in  the  port  under  study  are  stored  in  a  table  within 
the  computer.  The  ship  characteristics  include: 


•  an  index  to  indicate  the  ship  type 

•  the  amount  of  electric  current  and  steam  that  the 

ship  may  furnish,  if  the  ship  is  a  tender 

•  the  amount  of  electric  current  and  steam  that  it 

requires  for  a  cold-iron  stand-down 

•  the  number  of  frames*  needed  to  berth  it 

•  the  number  of  ships  that  may  nest  next  to  it,  if  any 

•  the  number  of  days  per  quarter  that  it  may  spend  at  a 

tender,  if  any  (usually  two  or  three  weeks;  i.e.,  14 
or  21  days) 

•  the  mean  and  standard  deviation  in  days  for  the  time 

between  overhauls 

•  the  mean  and  standard  deviation  in  days  for  the  time 

in  overhaul 

•  the  mean  and  standard  deviation  in  days  for  the  time 

between  extended  operations 

•  the  mean  and  standard  deviation  in  days  for  time  on 

extended  operations. 


A  "class’1  designation  for  tenders  is  also  included- (see  Section  3.2). 

Ship  types  are  indicated  by  the  indexing  scheme  given  in  Table  1. 
This  indexing  scheme  is  used  to  indicate  the  types  of  ships  that  can 
occupy  the  same  berthing  positions. 


*  In  discussing  docks,  a  "frame”  is  100  feet  of  berthing  space  along¬ 
side  the  dock. 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 


TABLE  1  -  SHIP  INDEXES 


SHIP  TYPE 

INDEX 

SHIP  TYPE 

CVAN,  CVA 

24 

ARC,  ARG 

CVS 

25 

ARS 

APSS 

26 

AS 

LPD 

27 

ATF,  ATA 

LPH 

28 

AVM,  AVB 

LSD 

LST 

29 

CGN,  CC,  CAG, 
CG,  CA,  CLG 

AD 

30 

DXGN,  DXG ,  DDG 
DD,  DDE 

ADG 

31 

DLGN,  DLG,  DL 

AE 

32 

MCS 

AF 

33 

MSC 

AFS 

34 

MSO 

AGDE 

35 

EPCER 

AGMR 

36 

DEG,  DE 

AGSS,  AGS 

37 

SS 

AH 

38 

SSBN 

AKA 

39 

SSN 

AN 

40 

APD 

AO,  AOR 

41 

ARL 

AOE 

42 

ATS 

AOG 

43 

AGC 

APA 

44 

IFS 

AR 

45 

AKS 

46 

ASR 
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Frame  and  Pier  Description 

Each  pier  in  the  port  is  described  by  a  table  in  the  computer 
memory  containing  the  amount  of  electric  power  and  steam  available  at 
that  pier  and  the  amount  of  electric  power  and  steam  in  use  at  that 
pier. 

The  pier  is  described  more  specifically  by  a  table  containing 
information  about  each  of  its  frames.  This  table  includes: 

•  the  status  of  the  frame;  i.e.,  occupied  or  empty 

•  the  amount  of  electric  power  and  steam  available 

•  the  number  of  ships  that  can  nest  against  it 

•  the  position  of  the  frame  in  relation  to  the  pier; 

i.e.,  at  the  beginning,  at  the  end,  or  in  between 

•  the  pier  number 

•  the  ship  types  which  can  berth  at  the  frame  (a 

maximum  of  five  separate  ship  indexes,  ordered 
into  five  preferences  as  explained  in  Section 
2.5) 

If  the  frame  is  occupied,  the  following  information  is  also  included: 

•  the  amount  of  electric  power  and  steam  in  use 

•  the  ship  berthed  pierside  and  the  number  of  ships 

nested  against  it,  if  any 

If  less  than  five  ship  types  can  berth  at  a  given  frame,  a  frame 
preference  index  of  99  specifies  that  the  frame  will  berth  no  other 
ships  than  those  already  specified,  if  any. 
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2.4 


Berthing  Protocol 


Ships  receive  priority  berthing  if  they  are  either  preparing 
for  overseas  movement  or  returning  from  extended  overseas  operations. 

In  the  first  case,  they  must  receive  a  21-day  period  in  cold  iron  for 
preparatory  maintenance;  in  the  second,  they  must  receive  at  least  30 
days  cold  iron  for  ship  maintenance  and  crew  leave. 

A  ship  can  be  berthed  at  pierside  and  provided  with  no  utilities 
(steam  and  electric  power),  partial  utilities,  or  full  utilities  (cold 
iron).  Similarly  it  can  be  in  one  of  these  three  conditions  while 
nested  to  another  ship,  or  it  can  be  anchored  in  the  stream  while 
awaiting  berthing. 

In  the  model,  as  ships  enter  the  port  for  berthing  during  the 
simulated  day,  they  enter  an  arrival  queue  and  are  not  berthed  immediately. 
After  all  ships  have  been  processed;  i.e.,  all  newly  arrived  ships  are 
in  the  arrival  queue,  the  model  (1)  attempts  to  provide  utilities  to 
those  ships  already  in  berths  which  still  need  them,  (2)  attempts  to 
berth  the  ships  still  needing  berthing,  and  (3)  once  a  ship  is  berthed ,  attempts 
to  provide  utilities.  Immediately  eliminated  from  consideration  for 
utilities  are  all  ships  which  are  expected  to  remain  in  port  less  than 
three  days  and  all  tenders  supplying  utilities.  Initially  considered 
are  all  ships  occupying  a  berth  and  in  a  priority  state;  i.e., 
preparing  for  overseas  movement  or  returned  from  extended  operations. 

Following  this,  the  rest  of  the  berthed  ships  are  considered. 

After  the  berthed  ships  have  been  taken  into  account,  ships  in 
the  stream  and  new  arrivals  are  considered.  First  an  attempt  is  made 
to  berth  priority  ships  waiting  in  the  stream,  then  priority  ships 
among  the  new  arrivals,  then  the  remaining  ships  waiting  in  the  stream, 
and  finally  the  remaining  new  arrivals. 

Although  ships  preparing  for  overseas  movement  or  returning 
from  extended  operations  are  given  priority  status  for  berthing  and 
utilities,  there  is  also  an  inherent  priority  among  ships  with  the 
same  defined  priority  (both  have  priority  or  neither  has  priority) . 
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This  results  from  the  manner  in  which  the  information  defining  the 
ships  is  read-in  and  stored  in  the  computer.  If  ships  A  and  B  both 
need  utilities  or  can  occupy  the  same  berth,  and  if  the  information 
defining  ship  A  was  read  into  the  computer  before  the  information 
defining  ship  B,  and  if  neither  has  defined  priority  over  the  other 
and  both  are  in  the  same  state  (i.e.,  both  in  stream,  both  new  arrivals, 
or  both  needing  utilities),  ship  A  is  always  serviced  before  ship  B, 
regardless  of  type  or  class 

2.5  Berthing  Implementation 

If  the  ship  index  is  not  15,  29,  30,  31,  36,  37,  38,  or  39; 
i.e.,  if  the  ship  is  not  an  AGSS,  AGS,  CGN,  CC,  CAG,  CG,  CA,  CLG, 

DXGN,  DXG,  DDG,  DD,  DDE,  DLGN,  DLG,  DL,  DEG,  DE ,  SS ,  SSBN,  or  SSN, 
then  the  berthing  is  implemented  according  to  paragraph  2.5.1.  If 
the  ship  is  one  of  those  listed  above,  the  berthing  implementation  is 
slightly  different,  as  discussed  in  paragraph  2.5.2. 

2.5.1.  For  ships  other  than  those  listed  above,  an  attempt  is  made 
to  place  the  ship  at  a  first-preference  berth  (i.e.,  a  berth  whose 
frames  are  assigned  as  first  preference  the  specific  index  describing 
that  ship  type,  see  Table  4),  pierside  with  full  utilities  (unless 
the  ship  is  a  tender  returning  from  shipyard  maintenance,  in  which  case 
it  will  be  berthed  at  a  first-preference  berth  with  no  utilities) . 

The  attempt  is  made  starting  at  the  first  frame  and  continuing  in 
order  to  the  last  frame.  If  full  utilities  are  not  available  and 
the  ship  will  be  in  port  for  less  than  three  days,  then  the  ship  is 
berthed  at  a  first-preference  berth  without  utilities.  If  no  first- 
preference  berth  is  available  with  full  utilities,  and  if  the  ship 
does  not  require  priority  berthing,  then  an  attempt  is  made  to  berth 
the  ship  at  a  first-preference  berth  without  utilities. 

If  no  first-preference  berth  is  available  and  the  ship  is  a 
tender,  then  first-preference  berthing  is  reserved  for  it.  No  other 
ships  can  berth  at  that  berth  until  the  tender  is  berthed.  In  other 
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cases,  an  attempt  is  made  to  berth  the  ship  at  any  other  allowed 
berth  with  utilities.  For  ships  of  these  types,  frames  with  the  four 
other  "preferences"  are  considered  by  frame  serial  number  with  no 
order  of  preference.  If  no  berthing  with  utilities  is  available,  an 
attempt  is  made  to  berth  the  ship  without  utilities. 

If  no  pierside  berthing  is  available,  an  attempt  is  made  to 
nest  the  ship  with  full  utilities,  treating  the  five  frame  preferences 
by  frame  serial  number  without  regard  to  order.  If  this  cannot  be 
done,  an  attempt  is  made  to  nest  the  ship  with  no  utilities.  If  this 
fails,  then  the  ship  is  placed  in  the  stream. 

2.5.2.  If  the  ship  index  is  one  of  those  eight  cited  at  the 
beginning  of  Section  2.5,  then  the  berthing  implementation  is  slightly 
modified.  The  order  of  the  berthing  attempts  is: 

(1)  first-preference  pierside  with  full  utilities 

(2)  first-preference  nested  with  full  utilities 

(3)  second-preference  pierside  with  full  utilities 

(4)  second-preference  nested  with  full  utilities 

(5)  first-preference  pierside  without  utilitites 

(6)  first-preference  nested  without  utilities 

(7)  second-preference  pierside  without  utilities 

(8)  second-preference  nested  without  utilities. 

For  a  ship  that  will  be  in  port  less  than  three  days,  the  first 
available  allowable  berth  is  selected,  according  to  the  above  scheme, 
but  as  noted  previously,  the  ship  is  given  no  utilities.  If  no 
berth  is  available  according  to  the  above  scheme,  then  berthing 
protocol  is  the  same  as  in  paragraph  2.5.1. 
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3.  MODEL  OPERATION 


3.1  Distributions 

The  times  a  ship  spends  in  overhaul,  between  overhauls,  on 
extended  operations ,  and  between  extended  operations  are  obtained  by 
means  of  a  sample  from  a  normal  distribution.  Given  a  mean  y  and  a 
standard  deviation  a,  a  sample  value  S  from  a  normal  distribution 
can  be  approximated  by 

12  1 

S  =  y  +  a  *  £  (Ri  -  2> 

2 

where  R_^  are  independent  random  numbers  between  zero  and  one. 

At  the  beginning  of  each  quarter,  the  time  remaining  before  a 
ship  requires  tender  maintenance  for  that  quarter  (91  days)  is  calcu¬ 
lated  from  a  uniform  distribution,  i.e., 

T  =  R  *  91 

where  T  is  the  time  remaining  before  a  ship  requires  tender  maintenance 
and  R  is  a  random  number  between  zero  and  one.  If  the  ship  was  tied 
up  to  a  tender  at  the  beginning  of  a  quarter,  or  if  a  ship  returned 
from  extended  operations  or  from  shipyard  maintenance  during  the 
quarter,  it  is  assumed  to  require  no  tender  maintenance  for  that 
quarter.  The  time  spent  at  a  tender  is  either  two  or  three  weeks  as 
specified  in  the  input  data.  The  distributions  were  selected  because 
they  approximated  reality.  NAVFAC  provided  the  means  and  standard 
deviations  for  each  distribution  for  each  ship,  based  on  previous 
observations  and  an  analysis  of  the  port  logs.  Examples  of  these 
means  and  standard  deviations  are  provided  as  part  of  the  sample 
input  in  Appendix  C. 

On  the  basis  of  a  seven-day  week,  the  probability  that  a  ship 
will  be  in  port  for  the  weekend  is  0.9,  and  the  probability  that  it 
will  be  out  is  0.1.  If  the  ship  is  to  be  in  port  for  the  weekend, 

2.  Hammersley,  J.M. ,  and  Handscomb,  D.C.,  Monte  Carlo  Methods, 

Barnes  &  Noble,  Inc.,  New  York,  1964,  pp  39-40. 
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then  the  number  of  days  out  is  calculated  by  random- number  selection 
from  a  uniform  distribution  which  varies  according  to  the  day  of  the 
week  on  which  the  ship  is  going  out.  If  the  ship  is  to  depart  on 
Monday,  the  values  range  from  one  to  four  days.  If  the  ship  is  to 
depart  on  Tuesday,  the  values  range  from  one  to  three  days,  etc.  If 
the  ship  is  to  be  out  for  the  weekend,  then  the  number  of  days  out  is 
calculated  by  random-number  selection  from  a  uniform  distribution  which 
again  varies  according  to  the  departure  day.  If  the  ship  is  to  depart 
on  Monday,  the  values  range  from  seven  to  11  days.  If  the  ship  is  to 
depart  on  Tuesday,  the  values  range  from  seven  to  ten  days,  etc. 

A  ship  coming  into  port  during  the  week  will  remain  there  for 
the  weekend.  Its  departure  day  the  next  week  is  calculated  by  random- 
number  selection  from  a  uniform  distribution  over  the  following  Monday 
to  the  following  Thursday. 

i 

3. 2  Initialization 

Prior  to  the  beginning  of  the  simulation,  the  system  is 
initialized  by  placing  each  ship  in  one  of  the  system  states  by  a 
Monte  Carlo  method,  as  explained  below.  The  baseline  distribution  of 
the  ships  in  the  system  was  determined  by  NAVFAC,  and  is  based  on  an 
analysis  of  port  control  logs.  The  baseline  distribution  is  as  follows: 
initially  one-third  of  the  ships  are  on  extended  operations  and  two-thirds 
on  normal  operations  or  in  port.  The  ships  on  normal  operations  or  in 
port  (66%  of  all  ships)  are  further  divided  as  follows:  8%  (of  all  the 
ships)  are  in  overhaul,  5%  are  in  priority  cold  iron  preparing  for 
overseas  movement,  5%  are  in  priority  cold  iron  for  30-day  stand-down, 

4.8%  are  on  short  deployment,  and  the  remaining  43.2%  are  in  port 
requiring  normal  berthing.  The  distribution  of  the  last  48%  is 
obtained  by  assuming  day  zero  to  be  Sunday,  hence  10%  of  the  ships 
are  out  of  port  on  normal  operations  and  90%  are  in  port. 
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The  initialization  of  the  program  is  implemented  by  selecting  a 
random  number  and  comparing  it  to  the  baseline  distribution  for  each 
ship.  For  example,  if  the  random  number  R  satisfied  0  <  R  <  08,  the 

ship  was  placed  in  overhaul;  if  08  <  R  <  .13,  the  ship  was  placed  on 
POM,  etc.  No  ships  are  initially  tied  up  to  a  tender. 

The  values  for  the  tables  specifying  the  times  remaining  until 
a  ship  goes  on  extended  operations,  into  overhaul,  or  to  a  tender  are 
initialized  for  the  time  remaining  until  extended  operations  as  follows 
for  each  ship,  a  sample  value  is  taken  from  the  appropriate  normal 
distribution.  (See  Appendix  C  for  examples.)  Then  21  days  are 
subtracted  from  this  value  to  allow  time  for  preparing  for  overseas 
movement.  (The  same  effect  could  be  obtained  by  subtracting  21  from 
the  mean  when  it  is  stored  in  the  ship  characteristics  table.)  This 
sample  value  is  then  initialized  by  multiplying  it  by  a  random  number 
between  0  and  1.  The  sample  value  represents  the  original  calculated 
value.  "Initializing”  it  by  multiplying  it  by  a  random  number  is 
required  to  simulate  calculating  the  sample  at  a  random  past  time. 

For  the  time  remaining  until  overhaul  for  each  ship,  a  similar  sample 
value  is  taken  from  the  appropriate  normal  distribution  and  is 
initialized.  If  the  ship  is  on  normal  operations  and  not  in  overhaul 
or  priority  cold  iron,  it  will  go  to  a  tender  during  the  quarter  if 
an  appropriate  tender  is  available.  In  this  case,  the  90-day  period 
is  multiplied  by  a  random  number,  rounded  to  the  next  highest  integer, 
and  stored  in  a  table. 

The  number  of  days  remaining  in  each  initial  state  is  similarly 
initialized  as  follows:  for  ships  on  extended  operations  or  in  over¬ 
haul,  a  sample  value  is  taken  from  the  normal  distribution  specifying 
the  duration  of  stay  in  that  state  and  is  then  multiplied  by  a  random 
number  between  0  and  1  If  the  ship  is  in  priority  cold  iron,  the 
30-  or  21-day  value  is  similarly  initialized  for  the  time  required  to 
return  from  30-day  stand-down  or  to  prepare  for  overseas  movement. 
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If  the  ship  is  out  on  normal  operations,  its  return  to  the  port  during 
the  week  is  equally  probable  for  each  day,  and  the  day  of  its  return 
is  calculated  by  dividing  a  random  number  between  0  and  1  by  0.2  and 
rounding  to  the  next  highest  integer.  If  the  ship  is  in  port  on  day 
zero,  it  will  be  ready  to  depart  on  one  of  the  next,  four  days  (i.e., 
Monday  through  Thursday,  since  the  ship  will  not  depart  from  the  port 
on  Friday,  Saturday,  or  Sunday).  The  day  of  its  departure  is  calcu¬ 
lated  by  dividing  a  random  number  by  0.25  and  rounding  to  the  next 
highest  integer.  The  calculated  time  is  rounded  upward  in  each  case 
by  adding  1  and  truncating. 

Tenders  represent  a  special  case.  A  tender  whose  "class" 
designation  (program  terminology,  not  to  be  confused  with  normal  ship 
class  designations;  see  Section  4)  begins  with  a  2  (e.g. ,  2.1)  will 
not  go  on  extended  operations  at  all;  a  tender  whose  class  designation 
begins  with  a  1  will  deploy.  The  class  designations  are  used  to 
prevent  all  tenders  of  the  same  class  from  being  away  from  the  port 
at  the  same  time  and  thus  leaving  no  tenders  to  provide  maintenance. 
Only  the  right  side  of  the  decimal  is  compared,  so  that  tenders  with 
class  designations  2.1  and  1.1  are  considered  the  same  except  for 
deployment.  All  tenders  will  remain  in  port  when  on  normal  operations, 
except  when  in  overhaul.  All  tenders  can  perform  maintenance  when  on 
normal  operations,  except  when  in  priority  cold  iron  or  in  overhaul. 

3.3  Daily  Ship  State  Changes 

At  the  beginning  of  each  day,  the  tables  designating  for  each 
ship  the  time  remaining  in  the- present  state,  the  time  remaining  in 
normal  operations,  the  time  until  tender  maintenance  is  required,  and 
the  time  remaining  until  overhaul,  are  decremented  (reduced  by  1)  for 
each  ship.  If  the  time  remaining  for  a  ship  in  its  present  state  is 
not  zero  after  the  decrementing,  no  state  change  is  made,  regardless 
of  the  values  of  the  other  tables,  which  therefore  may  now  be  negative. 
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The  daily  state  changes  follow  the  structure  shown  previously  in 
Figure  1.  If  a  ship  may  enter  more  than  one  state,  the  states  have  the 
following  hierarchy:  overhaul,  POM  or  extended  operations,  tender 
maintenance,  and  lastly,  normal  operations.  Monte  Carlo  methods  are 
used  to  determine  which  of  two  states  with  equal  priority  is  chosen; 
i.e.,  in  or  out  of  port  for  normal  operations, 

A  ship  returning  from  extended  operations  is  placed  in  the 
arrival  queue  with  a  priority  status.  This  is  implemented  by  effectively 
adding  100  to  its  ship  index.  When  implementing  the  berthing  operation, 
a  ship  whose  index  is  greater  than  100  has  priority.  A  sample  value  is 
taken  from  the  normal  distribution  for  the  amount  of  time  to  be  spent 
in  normal  operations  and  stored  in  the  proper  table.  The  value  in  the 
table  for  the  time  remaining  until  tender  maintenance  is  required  is 
reset  so  that  the  ship  will  not  go  to  a  tender  during  the  present  quarter. 

A  ship  in  a  normal  operations  cycle  in  port  may  go  to  a  ship¬ 
yard,  to  POM,  to  a  tender,  or  on  a  short  deployment  out  of  the  port. 

It  will  go  to  a  shipyard  if  the  value  specifying  the  time  to  go  to  a 
shipyard  is  less  than  or  equal  to  zero.*  In  this  case,  the  ship 
releases  its  berth  and  utilities,  if  it  has  any,  aiid  is  considered  to 
be  in  the  shipyard..  The  duration  of  its  stay  is  determined  by  a 
sample  from  the  corresponding  normal  distribution. 

If  the  ship  is  not  going  to  a  shipyard  and  the  value  specifying 
the  time  remaining  before  the  ship  goes  on  extended  operations  is  less 
than  or  equal  to  zero,  the  ship  will  go  to  POM.  If  it  has  a  berth 
which  can  provide  adequate  utilities,  the  ship  is  given  priority  status 
and  remains  in  its  berth  The  priority  status  is  implemented  by  adding 
200  to  the  ship  index  If  the  utilities  are  not  then  available,  it 


*  Note:  Values  of  time  remaining  before  the  ship  goes  to  a  shipyard 
(tender  or  POM)  selected  from  the  appropriate  normal  distribution 
as  described  above:  are  always  greater  than  zero.  Nevertheless,  such 
times  will  usually  be  overexpended  and  hence  go  negative,  since  the 
program  will  not  change  states  until  the  time  for  a  ship  to  remain 
in  its  present  state  is  zero. 
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waits  for  them.  If  its  berth  cannot  provide  adequate  utilities,  the 
ship  releases  its  berth,  is  given  priority  status,  and  is  placed  in 
the  arrival  queue.  It  is  similarly  given  priority  status  if  it  is 
waiting  in  the  stream. 

If  the  ship  is  not  going  to  the  shipyard  or  POM,  and  if  the 
value  for  the  time  to  go  to  the  tender  is  less  than  or  equal  to  zero, 
a  check  is  made  to  see  if  a  tender  in  service  can  service  the  ship. 

If  not,  the  ship  ignores  going  to  the  tender  during  this  particular 
quarter  and  will  go  on  a  short  deployment  out  of  port.  If  a  tender 
is  available,  a  check  is  made  to  see  if  there  is  room  for  the  ship. 

If  not,  the  ship  remains  in  its  present  position  waiting  for  the  tender 
to  become  available  and  continues  using  pier  utilities  or  continues 
waiting  in  the  stream.  If  the  ship  can  go  to  the  tender,  it  releases 
its  berth  and  utilities,  if  it  has  any,  and  immediately  goes  to  the 
tender  for  two  or  three  weeks,  as  specified  in  the  ship  table  discussed 
earlier. 

If  the  ship  is  to  go  to  none  of  these  three  states,  it  goes 
out  on  a  short  deployment  and  releases  its  berth  and  utilities,  if  it 
had  any.  The  duration  of  its  stay  out  of  port  depends  on  the  departure 
day  as  already  explained. 

A  ship  on  normal  operations  returning  from  a  short  deployment 
goes  through  a  similar  process,  except  that  it  has  no  berth  or  utilities 
to  'give  up.  If  it  is  not  going  to  a  shipyard  or  tender,  it  is  placed 
in  the  arrival  queue  and  is  given  priority  status  if  entering  POM.  It 
will  stay  in  port,  if  it  is  not  going  to  a  shipyard,  a  tender,  or  to 
POM,  until  the  following  week,  and  will  depart  on  one  of  four  days,  as 
explained  earlier. 

A  ship  coming  out  of  shipyard  maintenance  will  go  directly  on 
extended  operations  if  the  value  in  that  time ’-remaining  table  is  less 
than  or  equal  to  zero,  or  it  may  go  on  a  short  deployment  out  of 
port,  or  it  may  be  placed  in  the  arrival  queue  for  berthing  according 
to  a  random  number  selection.  A  new  sample  is  selected  from  the 
normal  distribution  for  the  time  remaining  until  the  next  overhaul 
and  stored  in  the  correct  tabic. 
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A  ship  coming  out  of  30-day  stand-down  (priority  cold-iron 
maintenance  required  at  the  completion  of  extended  operations)  is 
similar  to  a  ship  on  normal  operations  in  port,  and  may  continue  in 
cold  iron.  Alternatively,  it  may  go  out  on  a  short  deployment  or  it 
may  go  to  a  shipyard,  thereby  releasing  its  berth  and  its  utilities. 

The  ship  will  remain  in  port  in  cold  iron  if  the  30-day  period  ends  on 
a  Friday,  Saturday,  or  Sunday.  It  will  not  go  to  a  tender  during  the 
present  quarter. 

A  ship  coming  out  of  POM  goes  directly  on  extended  operations 
and  releases  its  berth  and  utilities.  The  time  of  deployment  is 
selected  from  the  normal  distribution  as  specified  in  the  ship  table 
discussed  earlier. 

A  ship  at  a  tender  can  go  to  a  shipyard,  on  extended  operations, 
or  on  normal  operations  deployment.  If  it  is  to  go  on  extended 
operations,  it  will  remain  at  the  tender  for  a  total  of  three  weeks, 
regardless  of  the  time  specified  for  tender  maintenance  in  the  ship 
table.  Otherwise  it  will  release  its  berth  and  utilities  and  go 
either  to  a  shipyard  or  on  a  short  deployment. 

After  all  incoming  ships  have  been  processed  and  all  outgoing 
ships  have  released  their  berths,  utilities  are  given  to  those  ships 
berthed  with  inadequate  utilities  (no  utilities  or  less  than  the  ship 
requires),  if  utilities  are  available.  The  ships  in  the  stream  or 
in  the  arrival  queue  are  berthed  as  defined  earlier. 

At  the  end  of  a  quarter,  new  times  for  ships  to  wait  for  tender 
maintenance  are  calculated. 
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4 .  INPUT 


Input  to  the  Port  Berthing  Simulation  program  consists  of  a 
control  card,  a  set  of  frame-definition  cards,  and  a  set  of  pier- 
definition  cards. 

The  control  card  contains  information  defining  the  simulation 
run  and  specifying  the  print  options,  as  shown  in  Table  2. 
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TABLE  2  -  CONTROL  CARD  FORMAT 


Col  Variable  Name 

Remarks 

1-3  K1 

Number  of  ships 

4-6  K2 

Number  of  frames 

7-9  K3 

Number  of  piers 

10-11  NQ 

Number  of  quarters  program  is  to 
run  (maximum  of  24) 

12  IJ1 

Print  Option 

0  =  Selective  printing  of  daily 
reports,  as  determined  by 

IJ6,  IJ7,  and  IJ9 

1  =  Print  all  daily  reports.  If 
no  daily  reports  are  desired, 
leave  card  columns  12-34 
and  column  36  blank. 

13-16  IJ2 

Day  to  start  initial  printing  of 
daily  reports  (if  any) 

17-20  I2J 

Number  of  days  to  print  initially 

21-24  IJ3 

Number  of  days  to  skip  printing 
after  initial  printing 

25-28  IJ4 

Number  of  days  to  print  after 
the  count  specified  by  IJ3 
or  I4J  is  reached. 

29-32  I4J 

Number  of  days  to  skip  after 
the  count  specified  by  IJ4 
is  reached. 

(Note:  IJ4  and  I4J  are  repeated  throughout 

the  remainder  of  the  run. 

The  following  report  options  enable  the  user  to  select  the 
reports  printed,  depending  on  settings  of  above  variables.) 
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Table  2  (continued) 


Col 


33 


34 


35 


36 

37-52 


Variable  Name 


IJ6 


IJ7 


IJ8 


IJ9 


IPORT 


Remarks 


0  =  No  printing  of  HSHIP  matrix 
report 

1  =  HSHIP  matrix  printed  if  day 
is  to  have  printing 

0  =  No  printing  of  frame  matrix 

1  =  Printing  of" frame  matrix 
if  day  is  to  have  printing 

0  =  No  printing  of  quarterly 
summary 

1  =  Printing  of  quarterly  summary 

0  =  No  printing  of  port  log 

1  «  Printing  of  port  log 

Name  of  port  (16  alphanumeric 
characters) 


The  next  set  of  cards  comprises  the  ship-definition  cards 
which  constitute  the  SHIP  Table.  These  are  read-in  as  shown  in 
Table  3. 
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TABLE  3  -  SHIP  CARDS 


Col 

Definition 

Remarks 

1-3 

Ship  number 

Assigned  in  sequential  order  in 
the  ship  matrix. 

4-7 

Ship  type 

Up  to  4  alphanumeric  characters 

8-9 

Sequence  number 

=  1  if  first  ship  of  type  (as 

specified  in  card  columns  4* 

=  2  if  2nd  ship  of  same  type 

Etc.  (1  card  per  ship) 

10-12 

Ship  classification 

=  0  not  tender 

-  1.1,  General  tender  (AR) 

=  1.2,  Sub  tender  (AS) 

=  1.3,  destroyer  or  auxiliary 
tender  (AD) 

=  2.1,  2.2,  2.3,  similar  to  1.1 
1.2,  and  1.3,  respectively, 
except  that  if  the  classifi¬ 
cation  is  greater  than  2, 
tender  leaves  port  only  for 
shipyard  overhaul . 

13-16 

Mean  for  duration 
of  normal 
operations 

In  months 

17-19 

Standard  deviation 
for  duration  of 
normal  operations 

In  months 

20-23 

Mean  for  duration 
of  extended 
operations 

In  months 

24-26 

Standard  deviation 

In  months 

duration  of 
extended  operations 


27-30  Mean  for  duration  In  months 

of  overhaul 
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Table  3  (continued) 


Col 

Definition 

Remarks 

31-33 

Standard  deviation 
for  duration  of 
overhaul 

In  months 

34-37 

Mean  for  time 

between  overhauls 

In  months 

38-40 

Standard  deviation 
for  time  between 
overhauls 

In  months 

41-44 

Days  at  tender 

Generally  14  or  21 

45-48 

Electric  power 
required 

In  units  of  100  kw 

49-52 

Steam  required 

In  units  of  100  lb /hr 

53-54 

Frames  required 

55 

Nesting  capability 

Number  of  ships  that  can 
nest  outside  defined  ship 

56-59 

Electric  power 
furnished 

Capability  if  tender  (kw) 

60-63 

Steam  furnished 

Capability  if  tender  (lb/hr) 

64-67 

Ship  index 

See  Table  1 

The  next  set  of  cards  comprises  the  frame-definition  cards  which 
specify  the  FRAME  Table.  These  are  read-in  as  shown  in  Table  4. 
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TABLE  4  -  FRAME-DEFINITION  CARDS 


Col 

Variable  Name 

1-3 

IA 

4 

FRAME 

( I A ,  1 ) 

5-7 

FRAME 

(IA, 2) 

8-10 

FRAME 

(IA, 3) 

14 

FRAME 

(IA, 4) 

15-16 

FRAME 

(IA,5) 

17-18 

FRAME 

(IA,6) 

19-20 

FRAME 

(IA, 7) 

21-22 

FRAME 

(IA, 8) 

23-24 

FRAME 

(IA,9) 

25 

FRAME 

(IA, 10) 

43-44 

FRAME 

(IA, 17) 

Description 

Frame  number 

Availability 
=  1,  available 

=  2,  occupied 

Amount  of  steam  available  (lb/hr) 

Amount  of  electric  power 
available  (kw) 

Number  permitted  to  nest 

lst-pref erence  ship  index 

2nd-pref erence  ship  index 

3rd-pref erence  ship  index 

4th-pref erence  ship  index 

5th-pref erence  ship  index 

End  of  pier  code 

Pier  number 


The  last  set  of  input  cards  contains  the  PIER  description  data. 
These  are  read- in  as  shown  in  Table  5. 
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TABLE  5  -  PIER  DESCRIPTION  CARDS 


Col 

Name 

Description 

1-2 

IA 

Pier  number 

2-5 

PIER  (IA,  1) 

Total  steam  available 

9-11 

PIER  (IA,  3) 

Amount  of  electric  power 

available 


Sample  input  is  shown  in  Appendix  C. 
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5 .  OUTPUT 


As  data  are  read  in,  a  validity  check  is  made.  If  an  error  in 
the  data  is  detected,  an  error  message  is  printed  out  and  the  program 
stops.  If  no  error  is  detected,  a  search  is  made  to  see  if  a  berth  and 
adequate  utilities  are  available  for  each  ship.  If  not,  a  warning 
message  is  printed  out. 

The  input  data  defining  the  ships  and  frames  are  printed  out. 
After  the  initialization,  the  frame  matrix  is  again  printed  out.  If  no 
printing  is  requested  on  the  control  card,  only  the  final  summary  page 
is  printed  out.  Sample  output  is  shown  in  Appendix  D. 


6.  RECOMMENDATIONS  FOR  FUTURE  DEVELOPMENT 

Production  runs  of  this  model  have  indicated  the  possibility  that 
ships  have  on  occasion  waited  overly  long  for  priority  cold  iron  when 
tied  up  at  a  berth  which  has  much  nesting.  This  is  a  model  flaw  and 
should  be  investigated.  The  handling  of  ships  waiting  for  a  tender  also 
needs  improvement.  Currently,  these  ships  remain  in  their  present 
state  while  waiting  for  the  tender  to  become  available,  and  the  tender 
queue  has  no  priority  to  it.  The  reservation  system  for  tenders 
should  possibly  be  changed  to  move  non-priority  ships  away  from  the 
pier  to  make  room  for  the  tender.  Rarely  should  a  tender  have  to 
wait  for  a  berth. 
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APPENDIX  A 


PROGRAM  LISTING 


Appendix  A  contains  a  listing  of  the  port  simulation  computer 

program. 


A-l 


*-v 


i  x  .  ..  »  .r  r  ■*- 


5 


IB 


15 


20 


25 


31 


35 


40 


45 


50 


PROGRAM 


SH1PIN 


COC  6600  FTN  V3.0-P291  OPT=l  04/27/72  17.47.04. 


10 

C 


20 


40 

C 


60 

C 


FRCGRA6  SHIP IN (INPUT ,CITFLT,T APE 5=INPUT , T AFE6=CUTFUT )  PH  IF 

CC^CK  /CCM1/  G,HF,IOAYS,Kl,K2,M51,N,FRAME(35f,17),FSHIP(150,6>,  SHIP 
1PIER(25,8) ,SHIF( 150,22) ,STREMN (80,2)  SHIP 

CCMMCN  /CO  M2 /  I J 1 , 1 J 2 , 12 J , I J3 , 1 J4 , 14 J, I J 6 , I J7 , 1 J 6 , 1 jc , NO  SHI 

DIMENSION  ARRV(150,3) ,  NOO A Y$ ( 15 0 , 2)  ,  I OST AT  ( 1 5 0 , 14 , 2 ) ,  STRE AM ( 8 0 , SH I 
12),  TNUSTR  (350,2),  IP0RT(2),  IUNIT(3)  SHI 

INTEGER  HSHIP,G,HF,CTR1,U  SHI 


CATA  RLANK/10H 


PHI 


10 

1 1 

M  5  1  =  0 

SHI 

12 

G  =  C 

SHI 

13 

HF=  0 

SHI 

14 

RST= 1  • 

SHI 

15 

I C  l)T=  0 

SHI 

16 

M>NEO  =  0 

SHI 

17 

00  10  1=1,150 

SHI 

18 

OC  10  J= 1 , € 

SHI 

19 

HSNIP ( I, J) =0 

SHI 

20 

21 

READ  1420,  Kl,K2,K3,NQ,IJl,IJ2,I2J,IJ3,IJ4,I4J,lj6,IJ7, 

I J8,I J9,IFCSHI 

22 

1RT,  ( ID  NIT  (I) ,1=1,3) 

SH  I 

23 

IOYLST  =  NO*  91 

SHI 

24 

U  =  5 

SHI 

25 

****  READ  IN  SHIP  CARDS****'****** 

SHI 

26 

OC  30  IF= 1 , K 1 

SHI 

27 

READ  1430,  (SHIP(IE, J) ,J=1,22> 

SHI 

28 

CC  20  J=5 , 1 2 

SHI 

29 

SHIP (IE, J)=SHIP (IE, J) *30. 

SHI 

3  0 

SH  IP  (I  E ,  1)  =IE 

SH  I 

2 1 

HSHIP( IE,1)=IE 

SHI 

32 

CC  40  1=1, Ki 

SHI 

33 

IF  ( M  CC  ( 1 , 5  0)  •  NE « 1 )  GO  TO  40 

SH  I 

34 

FRINT  1440,  IF  CRT 

SHI 

3  5 

PRINT  1450 

SHI 

36 

PRINT  146C ,  (SHIP(lfJ) , J= 1 , 2  0 ) 

SHI 

37 

38 

DO  50  1=1, VZ 

S'- 1 

39 

RFAD  (U , 14  70 )  IA,( FRAME ( I  ,  J ) ,J= 1 , 17) 

SH  I 

40 

IF  (IA.EO.I)  GO  TO  50 

SHI 

41 

PRINT  1480 

SHI 

42 

CT  R 1  =  I 

SH  I 

43 

GO  TC  330 

SHI 

44 

CCNTINtE 

SHI 

45 

4  6 

CC  60  1=1, K3 

SHI 

47 

READ  (11,1490)  IA,  (PIER  (I,  J  )  -.J  =  l  ,6) 

SHI 

4  8 

IF  (IA.EO.IJ  GC  TC  6  C 

PHI 

49 

PRINT  1500 

SHI 

c  0 

C  TR1  =  I 

PHI 

51 

GO  TC  330 

SH  I 

5  2 

CCNTIME 

SHI 

53 

54 

EC  110  1  =  1, Kl 

SH  I 

5  5 

CT  RL  =  0  . 

PHI 

56 

PAGE  1 


55 


PRQGR A  h 


SHIPIN 


cnc  eeoc  ftk  \,3.c-F?gi  opt  =  i  q4/??/72  i7.<*?.n<< 


c  ac^ 


6  0 


65 


70 


75 


8a 


85 


90 


95 


10  0 


105 


110 


70 

C 

*0 

c 

c 

60 

C 

c 


c 

100 

110 

c 


c 


1 2  C 


130 

c 

c 


c 

c 

c 


14  c 

15  C 
C 

c 


OC  90  0=1 , K2 
CC  7  C  K  =  5,9 

IF  (cHIP(I,PC)  . F  C . FR  A  HF  ( J  ,  K  )  )  GC  TT  0 0 

CCNTINLF 

GC  TC  °0 

PERThIHG  IF  AVAILAnLF  -  C H  rC  K  F  C  E  AHFQU  A  TE  U T  1 1  IT  I F c 
GTPl  =  l  . 

CHECK  STC  A  H 

IF  (SHIP(I  ,15)  ,GT.FRAME<J,2)  )  GC  TC  90 
CHECK  ac 

IF  <SHIP<I,14)  .LE.FRAMF<J,3>>  GC  TC  Up 
CCMIMF 

ALL  FRAMES  PRCCESS^O 
IF  (FTRL . FQ. 0 . 0)  GO  TC  ICC 
INAOECUATF  UTILITIFS 
WRITE  <6,1F1Q)  I 
GC  TC  110 

NC  9ERTHI.NG  AVAILABLE 
WRITE  (6,1520)  I 
CCMIMJE 

**********,„,„  INITIflLIZF  VARIAELFS  F  C  R  ASSICNHEM  *  ******** 
10  =  0 

CALL  FRTFR  ( IP  CRT ,  IQ  ,  IC) 

H  -  0 

MJHNI=0 
MJHC 1=  0 
MJMNC  =  0 
D I ST=  0  . 

KM  10  V  R  =  0 

**************„  CLFaR  APR  ays  ********************************* 

00  130  1=1, K1 
CC  120  J=l,14 
I C  ST  A  T  (I,J,1)  =  0 
IOSTAT (I, J,2)=0 
CC  130  J= 1 , 3 
NCDAYS  (I, J)  =  0 
A  RR  V (I ,J) =0  . 

****************  CAPTURE  UTILITIES  AT  PIER  WHERE  *************** 
********,*,„„„„„  TENCER  IS  CECICATFO  *************************** 

00  150  1=1, K1 

IF  <SHIP(I,4)  .LE.C..CR.SHIFU  ,4)  .GF.3.)  C-0  TC  1EC 

***************,  SHIP  IS  a  7EKCER  SO  SAVE  FRICRITY  ************* 

FR  =  SH I F ( I , 20 ) 

****************  SEARCH  FRAME  MATRIX  FOR  THIS  FRICRITY  ********* 
**********„„„  tm  $AVE  UTILITIES  IN  MATRIX  ThLSTR  *********** 

CC  140  J= 1 , K2 

IF  (FRAHEC J,5)  .NE.PR1  GO  Tp  14Q 
TMJSTR  ( J,  1)  =FRAMF  (  J,  2) 

TMSTR  (J,2)  =  FRAMR ( J, 3) 

CCHTINLE 

CCKTINLF 

* ***** ** ********* * ** *  INITIALIZE  SHIPS  ************************* 

CC  290  1=  1  ,  K1 

*********** *****  kEy  ncrhal  CISTRIPUTICK  *********************** 

HEAN=SHIP(I,5) 


^  I 

5  7 

c  H  I 

5  A 

^1  I 

59 

^  H  I 

6  5 

^H  i 

ei 

c  H  I 

6? 

FH  I 

63 

c  H  I 

64 

SH  I 

65 

^  H  I 

66 

SHI 

67 

S  H  I 

68 

SHI 

69 

CH  I 

7  0 

SHI 

71 

SHI 

72 

SH  I 

73 

SHI 

74 

SHI 

75 

SHI 

76 

SHI 

77 

SHI 

78 

SHI 

79 

SH  I 

80 

SHI 

PI 

SH  I 

32 

SHI 

83 

SHI 

84 

SH  I 

85 

SHI 

86 

SHI 

87 

SHI 

88 

SHI 

89 

SH  I 

90 

SHI 

51 

SHI 

52 

SHI 

a  3 

SH  I 

54 

SHI 

55 

SHI 

66 

SH  I 

57 

SHI 

58 

SHI 

59 

SHI 

io  a 

SHI 

101 

SH  I 

102 

SHI  133 
SHI  104 
FHT  135 
*HI  1 C  6 
SHI  107 
SHI  108 
SHI  1 C  9 
SHI  1 1 G 
SHI  111 


PROGRAM 


115 


120 


125 


130 


135 


140 


14  5 


150 


155 


160 


165 


CH IP  IN  COC  66  0  C  FTN  V^.C-F?9l  OPT=l 

$TANCV=SHIF(I,6> 

CALL  NCRhAL  (CIST, ME AN,STANCV  ,RST) 

C  SMCTTH  IT  ******************************* 

CIST=CIST-21. 

IF  (CIST.LF.O)  0 1 ST=  0  • 

YFLP=R ANF (RST) 

CIST1=CIST*YFLF+1  . 


C  GET  NC.  OF  CAYS  UNTIL  NCR  CPS  ************ 

N  C  0 A YS (I,3)=0IST1 

IF  !SHIP(I,4)  .GT.2)  NOCAYS  (I  ,3)  =  S1*NQ*1 
YFL=RANF(RST) 

c  mmmmmmmm  CHECK  IF  SHIF  IS  IN  OVERHALL  ***************** 

IF  ( YFL . L  E . . 0  8 )  GO  TO  200 

c  ****************  G  ET  NC.  CF  CAYS  LNTIL  CVERHALL  *************** 

ME  AN  =  Sf- IP ( I , 1 1 ) 

ST  ANC  V  =  SH IP  ( I , 12) 

CALL  NCRMAL  ( C I S T1 , ME AN , S T AN C V , R ST ) 


YFLP  =  R AN  F  (RST) 

NCCAYS  (1,1 )=CIST1*YFLP  +  1  . 

IF  (SHIP(I,4) .GT.2.)  GO  TO  16C 


c  CHFCK  IF  SHIF  IN  F CM  ******************** 

IF  (YFL.LE..13)  GO  TO  270 

c  mmmmmimmmmm  CHECK  IF  <HIF  ON  EXT  OFS  **************** 

IF  (YFL.LE • . 46333)  GO  TO  210 

C  ************* CHECK  IF  SHIP  IN  CCir  i^qh***  ***************** * 

IF  ( YFL . LE . . 5 1 333 )  GC  TC  220 

C  *********************  SHIF  A  TENDER  ************************* 

IF  (SHIPCI  ,4) .GE.l. . ANC .SHIF(I,4)  .LT.2. )  GO  TC  170 
C  ****************  SHIP  IS  NCT  A  TENCER  so  GET  NC.  *************** 

C  ****************  CF  0^YS  LNTIL  GCES  TO  TENCER  *********** ** **** * 


YFL^RANF (RST) 

NCCAYS  (I  ,2)=90  .* YFl  +  1  . 

c  ****************  SHIP  Is  CN  NCP  CFS#  IT  I?  KCT  a  TENDER  ****** 

YFL  =  R  A  NF  (RST) 

YFLP^fi ANF  (RST) 

c  ****************  CHECK  IF  CH I  F  CN  NOR  OFS  IS  C l T  CR  IN  ********* 

IF  (YFLP.LF. .9)  GO  TC  1*0 

c  ****************  SHIf  CK  KCP  CFS  IS  QUT  CN  vFFNLY  CF c  ********** 

IO  AYS  =  YFL/ « 2* 1  . 

NLMNC=NUMNC+1 
HSHIP  (I,2)=2 
HSHIF  (I,3)  =  ICAYS 
HSHIF  (1,4) -0 
HSHIF (1,6) =2 
GC  TC  2Q 0 


C  *********************  SHIF  IS  A  TENDER  ************************ 

16 C  SHIF  (1,4) =SHIF  (1,4) -1. 

1 7  C  IOA YS- Cl  ST 1 

HSHIF  ( I , 6 ) =6 

IF  (IOAYS  .GT .NCOAYS  (I ,3) )  ICAYS-NCCAYS  (I  ,3) 

GC  TC  J9G 

C  ****************  5hjF  is  NCR  cFS  jN  pC7T  ******************** 

1MC  IOAYS=YFL/.2E+l. 

i SHIF  ( 1 , 6 ) =  2 
1°C  NLMM=NUNNI  +  i 


04/27/72 


SHI 

112 

CHI 

11? 

SHI 

114 

SHI 

115 

SHI 

116 

SHI 

117 

SH  I 

118 

SH  I 

119 

SHI 

120 

SH  I 

121 

SH  I 

122 

SHI 

123 

SHI 

124 

SHI 

125 

SHI 

126 

SHI 

127 

SHI 

128 

SHI 

129 

SHI 

130 

SH  I 

131 

SHI 

132 

SHI 

133 

SHI 

134 

SH  I 

135 

SHI 

136 

SHI 

137 

SHI 

138 

SH  I 

139 

SHI 

140 

SHI 

141 

SHI 

14? 

5  H  I 

143 

SHI 

144 

SHI 

145 

SHI 

146 

SHI 

14  7 

SHI 

148 

SHI 

149 

SHI 

150 

SHI 

151 

SHI 

152 

SHI 

1  5  3 

SHI 

154 

c  H  I 

155 

s  H  I 

156 

SHI 

157 

SH  I 

15  8 

c  H I 

15° 

SHI 

16  0 

SHI 

161 

SHT 

16  2 

SHI 

163 

SH  I 

164 

SH  I 

165 

c  H  I 

166 

17.47.04. 
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A- 5 


PROGRAM 


170 


175 


180 


185 


19  0 


195 


200 


205 


210 


215 


220 


SHIPIN  COC  6610 

FTN  V3.G-F291  CPT=1 

QU / 27 /?  ? 

PSHIF (I,2)=i 

SH  I 

167 

H  =  H+1 

c  H  I 

168 

ARP V (M ,1) =1 

SH  I 

169 

ARRV (H , ? ) =SH IF (1,20) 

SP  I 

170 

KSHIP (1,3) =  10  A  YS 

SHI 

171 

GC  TC  2P0 

SHI 

172 

C 

fIMMMMIMIMMMI  5HIP  15  IN  CVFRHAUL  **************  ***  ***  ** 

SHI 

173 

2  0  G 

HEAN^SHIP  (1,9) 

SHI 

174 

STANCV=SH IP ( 1,10) 

SH  I 

175 

CALL  NCPMl  (GIST, HEAN,STANCV, PST) 

SHI 

176 

YFL-RANF (RST ) 

SHI 

177 

C 

SHI 

178 

IGAYS=niST*YFL+l  . 

SH  I 

179 

HSU  F  ( 1 , 2  )  =2 

SHI 

leo 

HS  H I P (1,3)— IOAYS 

SHI 

181 

PSHIF (1,4) =12 

SHI 

182 

HSHIP ( 1,6) =3 

SHI 

18  3 

IF  (HSHIF(I,3> •GE#NOOAYS(I,3) )  SH IF< 1 ,2 0) =SH IF  (X  , 2 C)  +  10 3 

SH  I 

184 

C 

******  INCR.  CTR  FOP  NO.  OF  *PIFS  IN  OVERHAUL  ******************* ch  I 

185 

NPIOVR^NHIOVR+I 

SH  I 

186 

GC  TC  2 Q  0 

SHI 

187 

c 

SHI 

188 

210 

IF  (SHIPCI  ,4)  .NE.O  .)  GC  TC  250 

SHI 

189 

220 

HEAN-SHIP (1,7) 

SH  I 

190 

ST ANOV^SH IE ( I , 8) 

SH  I 

191 

CALL  NCRPAL  ( O  I S T  ,  HE A N , S T A NC V , RS T ) 

SHI 

192 

YFL=R  A  MF (RST ) 

SHI 

193 

C 

t**999******  ********* 

SH  I 

lc  4 

IO AYS-OIST* YFL*1  • 

SH  I 

195 

c 

C  F  5  *************** 

RHI 

196 

N  U HE  C- NUM  E  O* 1 

SHI 

197 

SHIF ( I , ?8 ) -SHIP ( I , 20 ) *100  . 

SP  I 

198 

HSPIF (I, 2 ) =2 

SHI 

199 

PSHIF (1,3) =IOAYS 

SHI 

2  0  0 

PSPIP (I ,4) -0 

CHI 

201 

HSHIF ( I , 6 ) = 1 

SH  I 

202 

GC  TC  290 

SH  I 

203 

c 

5  H  I 

204 

27  C 

Y  F l=P  A  N  F (RST) 

SH  I 

205 

NCCAYS (I, 3) =OIST 

SH  I 

206 

CIST 1= YFL  *  3  0  •  ♦  1  • 

SH  I 

207 

c 

ON  NCR  CPS  ********** 

SHI 

208 

NCCAYS (I ,3) =NOOAYS (I , 3 ) - ( 3 Q . - Cl S T 1) 

^H  I 

209 

IF  (NCCAYS (1,3) .LE .0)  NCO A YS ( I , 1 ) =1 

SH  I 

210 

PSHIF (1,3) =HIST1 

SHI 

211 

c 

******  CHECK  IF  GAYS  TC  GC  IN  C.I.  IS  LE  TC 

OAY^  *************** 

SHI 

212 

c 

******  UNTIL  SHIF  GOES  ON  NCR  C  F  5  ****************************** 

SH  I 

213 

IF  (PSHIF  (1,3)  •LE.N0CAYS(I,3))  GC  IO  240 

SP  I 

214 

c 

IN  C.I.  ************** SP  1 

215 

N0CAYS(I,3)=HSHIP(I,3) 

SHI 

216 

2  4  C 

NUHCI=NUHCI+1 

SH  I 

217 

NUHN I=PUHN 1+1 

SPI 

218 

H  =  1 

SHI 

219 

SHIP  (1,20)  -SH  IP  <  I  ,20  +10C  . 

^P  I 

220 

ARRV  (H  ,  1 ) -  I 

SHI 

221 

c  flGF  4 
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225 


230 


235 


240 


245 


250 


255 


260 


265 


270 


275 


2  5  C 


2  6  C 


C 

2  7  C 
2  8  0 


29G 

C 


C 

C 

c 

c 


300 


C 


210 


ARRV  (8  ,2) =*HIP  Cl ,?0) 

HSHIF  (  I  ,  2 )  =  1 
hSUF  (I,6>=4 

gc  t r  290 

CO  260  J=1,I 

IF  CSH IP  f J,4> .EO  .0  .)  GC  TC  260 

IF  ( HSHIP ( J, 6) .EG. 6. AND. SHIP C 1,4 ) .EQ.SHIF ( J, 4) )  GC  TO  260 

KCCAYS  CI»  3 )  =  1 

HSHF(I,^  =  1 

GC  TC  170 

CCNT'lNir 

IF  (YFL.LE.0.13)  GO  TO  280 
GC  TC  220 

SHIP  IN  PCh  ****************************** 

IF  (SHIP(I,4) . NE . 0 . )  GC  TC  250 
YFL  =  RAN'F  (RST) 

ICAYS=VFL*21.+1. 

numc i  =  MJhC 1*1 

NUNN  I  =  NUNN  I>  1 
8  =  8M 

SHIP(I,20>=SHIP(I,20>*200. 

ARRV  (8,11  =  1 

ARRV  (N ,  2 ) =  SHIP  (1 ,2  0) 

HSHIP ( I , 2 ) =1 
HSHIP  (I,3)=IQAYS 
HSHIF  CI,6>=5 
CCNTINUE 

LEAVING  THE  ASSIGNMENT  STAGE  ****************** 

PRINT  1530 
CO  300  1  =  1, M 
N=  AR R V  (1,1) 

IF  (SHIP(N,4>.LE.0>  GO  TO  300 

******  SHIP  IS  A  TENDER  FLACE  IT  FIRST  IF  IN 

******  p  C  R  T  ANO  AVAIlAPLF  TC  FURNISH  UTILITIES  ***************** 
IF  (HSHIP(N,2I.NE.l)  GC  TO  30C 

SHIF  is  IN  ****#**##♦*♦***********♦*♦***** 
IF  (HSHIP (N,6> .NE.6)  GO  TC  300 

***********  SHIP  IS  A  TFNOER  AND  AVAILABLE  ************* *^* **** * 

IOAYS=3 
I J  9  A  =  0 

CALL  PLACE  (IJSA) 

HSHIF  (N,4)=G 
HSHIF ( N , 5 ) =H  F 
ARRV  (I  ,2) =0  . 

CCNTINUE 
A  =  2  0  0  • 

OC  220  1=1,2 

MMfMMMMfM  PLACE  C.I.  AND  PC8  N^XT  ********************** 

A  =  A- 1 0  0 • 

CC  320  K=l," 

IF  (  A  .LT  .  ARRV  (K,  2)  )  GO  TO  3  1  C 
GC  TC  ^20 
N= ARRV  (K  ,  1) 

ICAYS=7 
I J  S  A  =  0 


c  H  I  222 
SHI  223 
SHT  224 
SHI  225 
SHI  226 
SHI  227 
SHI  228 
*HI  2  2  S 
SHI  220 
SHI  221 
SHI  222 
SHI  233 
SHI  234 
SHI  235 
SHI  236 
SHJ  237 
SHI  238 
SHI  2  3  S 
SHI  240 
SHI  241 
SHI  242 
SHI  243 
SHI  244 
SHI  245 
SHI  246 
SHI  247 
SHI  248 
SHI  2  4  S 
SHI  250 
SHI  251 
SHI  252 
SHI  253 
SHI  254 
SHI  255 
SHI  256 
SHI  257 
SHI  258 
SHI  259 
SHI  260 
SHI  261 
SHI  262 
SHI  263 
SHI  264 
SHI  265 
SHI  266 
SHI  267 
SHI  268 
SHI  269 
SHI  270 
SHI  271 
SHI  272 
*HI  273 
SHI  274 
^ H  I  275 
SHI  276 
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280 


285 


250 


255 


300 


305 


310 


315 


320 


325 


320 


C 

c 

330 

3*0 

C 

c 


c 

350 


CALL  P l A  C  c  ( I J  5 A ) 

IF  (CHID(N,20)  .GT .  200. .ANC  . G . EQ  . 11)  H  SH  I  F  (  N  ,  3  )  =  2  1 
IF  (QFIP ( N  ,20)  .GT . 1 00 . . ANC  .C  .  EC .  1 1)  HSH IF ( N , 31 =3  C 
F^HIF l  N , * ) =G 
HSHIF(N,5)=HF 
ARRV (K ,?) =0. 

CCNTINUE 

IF  (IJ2.LE.1.ANO.I2J.NE.C)  r C  TC  3*0 
1  =  1 

CALL  FRTHS  (IPCRT,I,I) 

CALL  FRTFR  (IPCRT,I,I) 

FRIM  15*0 
GC  TC  3*0 


ERRCR  --  FRAME  CR  PIER  CARDS  ARE  IsCT  •***»**< 

IN  CORRECT  SEOUENCE 
PRINT  1550,  CTR1,IA 
ST  CP  112 
IT  HO  A  Y  =0 
K  0  AY= - 1 

********  OC-LCCP  BY  NUMBER  CF  CLARTERS  *******♦*************♦, 
VMVMMMMMMMV  PGM  IS  TC  RUN  *•*»#********»***»•*»**•**,« 

CC  1*00  I Q=1 , NO 
IX=IC 

oo-lccp  ey  cays/clarter  ********************* 

DO  13*0  1=1,51 
121=1 

ITHOAY=ITHDAY+l 
IF  (  KO AY • GE . 61  KCAY=-1 
KCAY  =  KCAYM 

**********  RESET  COUNTER  FCR  NUMBER  OF  ARRIVALS  TCCAY  ****»#*• 

M- 0 

CHECK  IF  TIME  TC  PRINT  ***#*♦****#♦♦♦******#♦ 

CALL  T  PONT  F  < I PORT , ITHD A Y  ,  I J5 A , I  X , 10 YLS T ) 

IF  (IJ5A.LE.0)  GC  TO  350 

M  PRINT  HEADER  FOR  PART  CCNTRCL  LCG  *******¥*¥¥**####* ***« v «» 

PRINT  1560  ,  ITHOAY , IX , IPORT, MHNI , NUMC I , NUMNC  ,NM ICVR , NUHEO 

OO-LOCP  BY  N LM BFR  OF  SHIPS  ****************** 

00  1170  J=i,Kl 
IT  ENDR  =  0 
IP  CM=  0 
J2  1=  J 
I F 1  =  C 
I T  =  0 
IOIS=0 
I T  ENO= j 
I C  VR  =  0 

COUNT  DOWN  NUMBER  OF  OAYS  TC  GC  IN  PRESENT  STATF  ANC  UNTIL  NEXT  ^T^HI  ^23 
H  S  H  I  F (J,3I=HSHIP(J,3J-1  ^HI 

NOCAYS  (J,ll=NCOAYS  ( J , 1 )-l  SHI  t2c 

NCCAYS (J, 2 )=NOOA YS (J,2) -1  SHI 

NC  C  A  YS (J, 3) =NOOAYS (J, 3) -1  SH1  t27 

CHECK  TO  SFE  IF  SHIP  HAS  REACHED  THE  FNC  OF  CAYS  TC  GC  TN  PRESFNT  ^HI  329 
IF  ( HS H I P ( J , 7 ) . G T . 3 )  GO  TC  117G  ^  H  I  3  2  9 

C  A  F  T  L  R  E  PRESFNT  STATE  IN  HP  *****»»»**»*»***»»********»*»¥»***4***c;f.T  t  n 
M  B  =  HS  H I P ( J  ,  6 )  SHI  331 


SHI  277 
SHI  278 
SHI  275 
f H  I  280 
SHI  281 
SHI  282 
SHI  283 
SHI  23* 
SHI  285 
SHI  286 
SHI  287 
SHI  288 
SHI  2*5 

*  S  H  I  2  5  0 

*  SH I  251 
SHI  252 
SHI  253 
SHI  25* 
SHI  255 

•SHI  256 
SHI  257 
SHI  258 
SHI  295 
►SHI  300 
SHI  301 
SHI  302 
SHI  303 
SHI  30* 
SHI  305 
SHI  306 
SHI  307 
'SHI  308 
c H  I  305 
SHI  310 
1 SH I  311 
SHI  312 
SHI  313 
SHI  31* 
SHI  315 
SHI  316 
SHI  317 
I  318 
SHI  315 
SHI  320 
SHI  321 
SHI  322 


330 


A-8 
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335 


340 


345 


350 


355 


360 


365 


370 


375 


380 


385 


360 


C 

370 


C 

380 


c 

3  9  0 
C 


c 

4  0  C 


41  C 


c 

4  2  C 
C 


C 

43  C 


IF  (KB.LE.C.OR.Ne.GT.7)  GC  TC  36C 

GC  TC  (37 0 ,390 , 1  020, 1  040 , 1 08 0 , 11 C 0,650)  ,  M P 

PRINT  1570 

PRINT  1580,  J,  (SHIP<J,K>  ,K  =  ?,e,) 

5TCF  100 

SHIP  IS  LFAVING  EXT  CPS  STUF  *♦• 

NU  PE  C  =  NU  M  E  0- 1 
HSHIF(J,2)=1 


SHI  332 
SHI  333 
SHI  334 
SHI  335 
SHI  336 
M**^I  337 
SHI  338 
SHI  339 


SET  OATS  TC  GO  UNTIL  GCFS  TC  TENCER  *****************  *♦*****##**##  c  j_  t  itn 
NCCA YS  (J, 2 ) =1 0  P  SJ_r 

PE  AN  =  S HIP ( J ,  5  )  SHI 

$TANCV=SHIF  ( J  ,  6  •  <^HI  3  u  3 

CALL  NCPPAL  ( 3 1 ST , ME  A N , S T A N C V , PS T )  cut  3L4 

Cl  ST  =  D  1ST-  21 .  ShI  7(|5 

SET  CAYS  TO  GO  UNTIL  GOES  CN  NCR  OFS  ****************************  4  j  1()6 
NCCAYS  (J, 31=CIST  +  0. 5  SHI  7||  7 

SET  CAYS  TC  GC  IN  STAnCOWN  *********************************  f  «  ««  j 


I  . 


348 
SHI  349 
•SHI  350 
SHI  351 
SHI  352 
SHI  353 
'SHI  354 
SHI  355 
SHI  356 
SHI  357 

CHECK  IF  NCR  OFS  SHIP  THAT  IS  CHANCING  STATE  IS  CCING  IN  OR  CUT  **SHI  359 
IF  (HSHIP ( u > 2) • EQ . 1 )  GO  TC  430  S  H  I  7  6  0 

SHIP  IS  CCPING  IN  ***************  ***********<zhJ  361 

SHI  362 


HSHIF ( J,3I =30 
SET  STATE  TO  C, 

HSHIP ( J,6>=4 
NUPNI=NUPNI+1 
NUPCI=NUPC 1+1 
SET  ARRIVAL  MATRIX  * 
P-P  +  l 

A  RR V ( P , 1 ) =  J 
AFRV(P,2)=SHIP(J|20) 
GO  TC  1170 


** 

NUPNC=NUMNC 

*  * 


*  CHECK  IF  TIPS  TC  GC  TO  OVFRHAll 
IF  (NCOAYS  (J,l ) .LE  .0)  GO  TC  730 
NUPNI  =  NUPNI*-1 

,*♦♦***,,*****,**,,*  CHECK  IF  TIPE  FOR  F  CM  **********«< 

IF  (NOCATS  (J, 3 ) .LE  .0 )  GO  TC  880 

CHECK  IF  TIPE  TC  GC  TO  TENCER  ********* 
IF  (NCCAYS <J,2>  .LE  .0)  GO  TC  750 

******  CHECK  IF  CAYS  IN  PCFT  ARE  THOSE  IN  NEEKLY  CYCLE 
IF  (K0AY.LE.4)  GO  TO  410 
PRINT  1590,  J, (SHIP(J,K) ,K=E,4) ,KCAY 
ST  C  F  ll.-> 

GAY=7-KnAY 
YFL=RANF (RST) 

HSHIF ( J , 3 ) =4 . ♦YFL+OAY 
GC  TC  c00 


•••♦SHI  363 
CH  I  364 
SHI  365 
'•♦•SHI  7  6  6 
SHI  367 
'♦♦♦SHI  368 
SHI  369 
'♦♦•SHI  370 
SHI  371 
SHI 
SH  I 
S  H  I 


372 

373 

374 


IF  (NCCAYS (J,l ) .GT .0 >  GO  TC  420 
IT  =  1 


s  H  I  375 
SHI  376 
SHI  377 

♦’♦  ♦•♦♦♦♦♦♦♦•♦SHI  7  7  8 

SHI  37a 

*************  ^  |_  J  1  fl  Q 

SHI  351 
SHI  382 

CHECK  IF  TIPE  TC  GC  TC  C\.EFHALL  ******♦****««;).  1  ijn 

SHI  384 
SH  T  3  85 
M6 


,  +  CHECK  IF  TIME  FOR  EXT  CP'  ♦♦♦< 

IF  (NCCAYS  (J,3) .LE .0)  GO  TC  8  P  C 

mimumimmimmm  CHECK  IF  TIPE  TC  GC  TC  TENCER 
IF  (NCCAYS  (J, 21  .LE.0)  GC  TC  740 
CC  TC  440 


CHECK  IF  N C°  CPS  SH ID  THAT  IS  CHANGING  STATE  hA 5  ax  FISPSIOE  ****?t-I 
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44G  IF  (hShIP  ( J,4) .LF.4)  GC  TC  45C  SHI  397 

C  CHECK  IF  NOR  OPS  SHIP  THAT  IS  CHANGING  5 1  AT  F  NAS  NESTEO  AT  PIER  *SHI  7  9  8 

IF  (HSHIP ( J,4)  .LE.10)  GO  TC  47G  SHI  399 

C  CHECK  IF  NCR  CPS  SHIF  THAT  IS  CHANGING  STATF  NAS  IN  STREAM  ******SHI  390 

390  IF  (HSHIP <J,4) .EO.ll)  GO  TO  590  SHI  391 

PRINT  1600  SHI  392 

FRINT  1580,  J, (SHIP(J,K) ,K=2,4)  SHI  393 

ST  CP  102  SHI  2 c  4 

C  SHIF  CN  NCR  OPS,  CHANGING  STATE  WAS  AT  FIERSICE  *****************SHI  395 

395  4  5  C  IF  (IT.EQ.l)  ICVR=1  SHI  396 

460  N5=HSH IP ( J , 5)  SHI  397 

N2=SHIF < J , 16)  SHI  358 

GO  TC  620  SHI  399 

C  SHIF  CN  NCR  OPS,  CHANGING  STATE  WAS  NESTEC  AT  FIER  ************** s H I  400 

400  4 7 C  IF  (IT.EQ.l)  IOVR=l  SHI  401 

C  N  5  IS  HIGHEST  FRANE  CCCUFIEO  BY  THIS  SHIP  *********************** SH  I  4C2 

C  N2  IS  THE  NUMBER  OF  FRAMES  SHIP  REQUIRES  ************************ SH  I  403 

C  I F I  IS  FLAG  TC  HOVE  NESTEC  SHIP  ********************************* SH I  404 

480  N5=HSH IP ( J  ,  5)  SHI  405 

405  N2=SH I F ( J , 1 6 )  SHI  406 

I F 1= 1  SHI  407 

C  REOUCE  THE  NUMBER  OF  SHIPS  NESTEO  HERE  ************************** cH I  408 

00  490  K=1,N2  SHI  409 

FRAME ( N5 , 16) =  FRA HE (N 5, 16) -1.  SHI  410 

410  490  N5=N5-1  SHI  411 

N  5=H  SH I P ( J , 5)  SHI  412 

C  CHECK  IF  SHIP  NESTEO  HAD  C.  I.,  PARTIAL  UTILITIES  CR  NO  UTILITIESSHI  413 

IF  (HSHIP(J,4)  .EQ.5.0R.HSHIP(J,4)  .EQ.8)  GO  TC  €80  SHI  414 

►  IF  (HSHIP( J,4) .E0.6.0R.HSHIP(J,4)  .EQ.9)  GO  TC  7  0  C  SHI  415 

VO  415  C  SHIF  NESTEO  HAD  NO  UTILITIES  ************************************ S H I  416 

N5=HSHIP(J,5)  SHI  417 

600  SHIP(J, 221=0.  SHI  418 

SHIP < J , 21 ) =0 .  SHI  419 

IF  (SHIP(J,4) .GT .0 .0 . ANO.SHIP (J,20) .LT. 100 .. ANC .NOOATS (J, 1) .GT.OI  SHI  420 

420  1 GC  TC  530  SHI  421 

C  CLEAR  HIGHEST  FRAME  THIS  SHIF  CCCUPIEO  ************************** SH  I  422 

HSHIP(J,5)=Q  SHI  423 

HSHIP(J,4)=0  SHI  424 

C  CHECK  IF  IT  IS  NECESSARY  TC  REMCVE  OEP  ART ING  SHIP  FRCM  FRAMES  ANOSHI  425 

425  C  SET  THOSE  FRAMFS  TO  AVAILABLE  STATE  *****************************<;^i  *,26 

IF  (IFI.EO.l)  GO  TO  520  SHI  427 

IF  (XFRAME  .GE. 0.)  GO  TC  520  SHI  428 

XFRAME=P.  SHI  429 

C  REMCVE  OEFARTING  SHIP  FRCM  FRAMES  ANO  SET  THEM  TC  AVAILABLE  STATFSHI  430 

430  00  510  K= 1 ,  N2  SHI  421 

FRAME(N5,1)=1.  SHI  432 

FRAME  (N^, 13) =0  .  SHI  433 

FRAME (N5, 14)=PLANK  SHI  434 

FRAME ( N5 , 15) =0 .  SHI  435 

435  5 1 G  N 5  =  N5 - 1  SHI  436 

520  IF  (IFCM.GE.l)  GC  TO  980  SHI  437 

IF  (IOVR.FG.1)  GC  TO  720  RHI  438 

CC  TC  560  RHI  439 

5  3  C  CO  540  K= 1  ,  N2  Shi  440 

FRAME  (N5,l)  =  2.  RHI  441 


FACE  9 


440 
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FRANE  (N5,2)  =  ^hIP (J,1S> 

SHI 

4l  2 

FRAHF  (N5, 3)=RH IP  <J,1B> 

SHI 

44  3 

5  4  C 

N  5  =  N  5  -  1 

SHI 

444 

HSHIF(J,6>=6 

SHI 

44  5 

445 

HS HI F ( J , 4  )  =4 

SH  I 

4  4  6 

55G 

HSHIF(J,3)=NOOAYS(J,3) 

SH  I 

44  7 

IF  (NCCAYS  (J,l)  .LT  .NCCAYS  ( <J  ,  3  )  )  HSHIP(J,3)=NCCAYS(J,1> 

SHI 

44  8 

IF  (HSHIP  ( J  ,  F ) • EC • 6)  GO  TO  1170 

SHI 

449 

HSHIF  ( J , 2  > -1 

SHI 

45  0 

450 

GO  TC  380 

SHI 

451 

C 

CHECK  IF  TINE  FCR  SHIF  TC  C-C  TC  OVERHAUL  ******************  ****,*SH  I 

452 

560 

IF  (NCCAYS (J,l )  .LE  ,0)  GO  TC  720 

SHI 

453 

IF  (NCOAYS  (J,3) *  LE . 0 )  GO  TC  ^CO 

SH  I 

454 

IF  ( IT  END R • NE . 0 )  GO  TO  1000 

SHI 

455 

455 

C 

SHIF  IS  GCING  OUT  ON  NCR  CFS  ******************************** 

45  6 

IF  (K0AY.LE.3)  GC  TO  570 

SHI 

457 

PRINT  1610,  J,  CSHIP(J,K)  ,K=2,4>  ,KCAY 

SH  I 

458 

ST  CF  1C4 

SHI 

459 

570 

CAY=4-KDAY 

SHI 

463 

460 

HSHIF  ( J , 2 ) =2 

SHI 

4  6  4 

HSHIF ( J,41=0 

SHI 

465 

YFL  =  F  A  NF ( RST ) 

SHI 

4  6  6 

YFLP=RANF (RST) 

SHI 

467 

HSHIF  ( J,3)=OAY*YFL  +  8. 

SHI 

468 

465 

IF  ( YELP . LE . 0 . 9 )  HSHIP ( J , 3 )=C AY* YFL+1 • 

SH  I 

469 

NUHNC=NUMNC+1 

SHI 

47  0 

NUHNI=MJHNI-1 

SHI 

47  1 

HSHIP(J,6)=2 

SHI 

472 

GC  TC  1170 

SH  I 

47  3 

470 

C 

SHIP  CHANGING  STATE  WAS  IN  ^TREAH  *************************** 

474 

C 

CHFCK  IF  ANY  ^HIP  REALLY  THERE  **********************************  ^  (.  j 

475 

5  8  C 

IF  (  N  5 1 , CT ,0)  GO  TO  59C 

SHI 

476 

FRINT  162  0,  J  ,  (SHIP ( J , K )  , K=2 , 4)  , H  5 1 

*H  I 

477 

ST  CP  105 

SHI 

478 

475 

590 

IF  (h51.LE.90Y  GC  TO  6C0 

SH  I 

479 

FRINT  1630 

SHI 

480 

ST  CP  106 

SHI 

48  1 

C 

LCCK  FOR  THIS  SHIP  IN  STREAh  ******************************** 

****SH  I 

482 

E  0  0 

2  J  =  J 

SHI 

4  fl  3 

480 

CC  E 10  K=1,M51 

SH  I 

48  4 

*L 

11 

rvi 

SH  I 

485 

IF  (STREHN(K,1) ,EQ.ZJ)  GO  TC  *30 

^  H  I 

486 

E1C 

CCNTINLE 

SHI 

487 

FACE 


<♦8  5 


4°Q 


495 


C  THIS  SHIP  SUPPOSEC  TO  PE  IN  STREAH,  IS  NOT  THERE  **************** SH I  48* 

PRINT  1640,  J, (SHIP ( J,K)  ,K  =  2 , 4)  SHI  489 

S  T  CP  107  SHI  4 0  0 

C  SHIP  GOING  CUT  HAS  AT  FIERSLCF  *»m,m  491 

C  CHECK  IF  OTHER  SHIP^  ARE  NESTED  TC  TT  ***************************  c;  HI  <=2 

E  2  0  IF  (FRAHE  (N5,16>  .GT  ,0  •)  GC  TC  B4C  SHI  493 

C  SHIF  NOT  NFcTFO  ***************************** ** ****************** sh i 

C  .*.**.*******,♦»»,.,*  CHANGE  FRANES  TO  CCCUPIEC  STATE  ******** * *** c h  I  495 

OC  63  0  K  = 1  ,  N  2  SHI  496 

C  CHECK  TO  ^  E  E  IF  FRAMF  IS  RESERVEC  FOR  A  T9  NO  E  R  SHI  497 

IF  (FRAHr  (N5,l)  ,E0.4.)  GO  TO  E30  SHI  498 

FR  A  HE  (N6 , 1) =1  .  ^  H  I  U9° 


FROGRA V 


5  0  0 


5G5 


510 


515 


520 


525 


530 


535 


540 


545 


550 


5FTPIN 


CHC  6  f  OC  FTN  V^.C-F?91  PPT  =  1  C4/27/72 


FR  AME ( N5, 13) =0  .0 
FRA*F  (K5, 15)=0.C 
FRAME  (N5, 14)  =PLANK 
E3C  N5  =  N’5-  1 

C  IF  SHIP  AT  FIEPSITE  ANO  LEAVING  CFFCK  IF  IT  FAC  C.  I., 

C  CR  NC  UTILITIES  ******************************* *  ***** * 

C  GC  TC  PI  Ir  SHIP  LEAVING  ^IERSICE  FAC  NC  UTILITIES  *** 

E4C  N5=HCHIP(J,5) 

XFRAME=FPAMC(N5»16)-1. 

IF  (FSFIP ( J, 4) .EG. 4)  GC  TC  5  C  C 

C  GC  TC  FQ  IP  CHIP  LEAVING  FIERSICE  FAG  SCME  UTILITIES  * 

IF  (  F  c  F I P  (  J  ,  4  )  • E 0 • 3)  GC  TC  70C 

C  GC  TC  68  IF  SFIP  LEAVING  FI^RpICE  FAO  C.  I.  ********** 

IF  (FSHIP(J,4)  .EO.l)  GC  TC  680 

FRINT  1650  ,  J,  (SFIP <J,K ), <  =  c  ,  ,  (FSFIP <J,K ), K=1 , 6) 

NUMCI=NUMCI-1 

ST  CF  110 

C  ******************  SFIF  LEAVING  FIFRSIOE  IS  A  TENCFR  ** 

6 5  C  N5=HSFIP  (  J  ,5) 

N  2=  SF I r ( J , 1 6 ) 

c  ********  RESTORE  UTILTIES  AVAILAELE  TO  T  HO  c  E  CRICINALLY 

CC  660  K= 1 , N? 

FR AMF  (N5, 1 )  =  2 

FRAMF (N5,2)=TNUSTP  (N  5 , 1 ) 

FRAME  <N5,3)=TNUSTR(N5,2) 

FRAME  <N5, 1 1) =0  . 

FRAMF  (N5, 12)  =  0  . 

EE  0  N5=N5-1 

N5  =  FSH IP ( J  ,5) 

c  ********  CFECK  IE  ANY  SHI^S  NESTED  TO  TENOER  NFICH  IS  L 

CC  670  K=1,K1 

IF  (HSFIP(K,5)  .NE.N5)  GO  TC  670 
C  4*******  CHECK  IE  THIS  IS  THE  SHIP  THAT  IS  LEAVING  **** 

IF  (K.EO.JZ1)  GO  TH  67 C 

c.  *********  CHANGE  SHIPS  UTILITIES  TC  0.  THEY  HERE  NESTED 

c  444444444444  +  44441  JQ  CE PARTING  T  6  Ml  r  R  **************** 

SH IP  <K ,21) =0  . 

SFIP (K  ,22) =0  . 

FSFIF  <K,4)=7 
NLMCI=NUMCI-1 
E7C  CCNTINLE 

c  **********  CFFCK  IF  TENOFR  IS  GCING  TO  CVEFFAlL  ******* 

IF  (NCEAYS  (J,l) .  L  E  .0)  GO  TC  E  2  0 
C  ** *******TENOEP  IS  GCING  CN  EXT  ENDED  OFrRATICNS*¥*¥¥¥ 

GC  TC  880 

c  ************  SHIP  NOW  GOING  CLT  FAC  CCL9  IRCN  ********* 

f  i4********  SUPTPACT  UTILITICS  IT  FAO  F°CM  ITILITIES  IN 

c  44******************  THOSE  FRAMES  ANO  PIFR  *********** 

E  8  C  CC  ESC  K=1,N2 

FRAME (N5, 11)=FRA ME (N 5, 11) -CH  I  F  (  J  2  1 , 1 5  ) 

FRAME  (N5, 12) =FRAMF(N5, 12) - SH IF  (JZ1, 14) 

E  9  C  N5  =  N  6  -  1 

N5  =  FSHir( J  ,5) 

K=FRAME ( N 5 , 17) 

FIERIK,2)=FTFR(K,2)-SFIP(J,15) 


AT  PIEF 


CHI 
SHI 
c  H  I 
SHI 

SOFF  UTILISHI 

♦***¥******chi 

***********CHI 

SHI 
SHI 
c  H  I 

****¥**¥***C)-I 

SHI 

♦♦*********SHI 

SHI 
SHI 
SHI 
SH  I 

*********  SHI 

CHI 
SH  I 
SH  I 
SHI 
SH  I 
SH  I 
SH  I 
SHI 
SHI 
SHI 
SH  I 
SHI 
SHI 
PHI 
SHI 
SHI 
SHI 
SH  I 
PHI 
SHI 
PHI 
SH  I 
SHI 
SHI 
CH  I 
SF  I 
SFI 
CFI 
SFI 
SF  I 
c  F  I 
PHI 
c  H  I 
SHI 
c  F  I 
SHI 
SH  I 


CAVING  ** 


******** 


******** 


********* 

USE  AT  ** 

********* 


5  j0 

6  01 
c  0  2 
603 
5  C  4 
505 

5  C  6 
507 

50  8 

6  0  9 
6  1  C 
611 

512 

513 

51  4 

515 

516 

517 
618 

519 

520 

521 

522 

523 

5  2  4 

525 

526 

6  2  7 
528 

5  2  9 
530 
521 
c  3  2 
523 

534 

535 

536 

537 

538 

539 

540 

541 

542 
643 
54  4 
c  4  5 
5 1  E 

547 

548 

6  4  9 

CC  r 

551 
c  5  2 

c  6  7 
ccu 


A-12 


PROGRAP 


555 


560 


565 


570 


575 


580 


585 


690 


595 


600 


*hipik  coc  eecc  ftp 

V3.C-P291  CP  T  =  1 

04/27/7? 

F IER (K  ,4) =FIER  CK,4> -SHIP («  ,1*  > 

SP  I 

655 

GC  TC  5P0 

SHI 

c  6  6 

c 

LLTILITIFS  **** 

^PI 

66  7 

70  C 

CC  710  1  ,  N 2 

SPI 

658 

FRAME(K5,12)=FPAMF(N5,12)-5HIF(JZ1,22) 

*PI 

659 

Fff AH?  <K5y in  sFPAPF  CN5y 11) -SHIF  C JZ1921> 

SHI 

56  C- 

7  1  C 

K  5  =  N  6  - 1 

^PI 

661 

N5=PSHIP ( J , 5) 

CHI 

662 

K=FFAMF(N5,17) 

^PI 

563 

PIER(K,4)=FIER(K,4)-SHIP(J,22) 

SH  I 

664 

PIER <K,2)=FIER (K, 2) -SHIP ( J,2l ) 

^PI 

665 

GC  TC  600 

SHI 

666 

C 

SHI 

66  7 

720 

MJMNI=KUMNI-1 

SHI 

568 

7  3  C 

HE AN=SHIP ( J,9) 

SHI 

c  6  9 

ST  ANCV  =  SHIF  ( J,  10 ) 

SH  I 

670 

C 

SHI 

571 

CALL  P  CRM  AL  (0  1ST , MEAN ,ST AKCV ,R ST ) 

SHI 

c  7  2 

HSHIP ( J, 3) =0IST+  0. 5 

F  H  I 

673 

PSPIF  CJ, 41  =  12 

*P  I 

674 

hSHIF ( J,5) =0 

SH  I 

575 

PSP IF ( J , 6 ) =3 

5PI 

576 

PMICVR=NMICVRM 

SH  I 

677 

PSPIF (J,2>=2 

c  H  I 

578 

IF  (PSPIP < J,3)  *GE .NOCA YS  ( J  ,3) )  S P  IP ( J , 2 0 >  =  SH I P ( J 

,20)+10Q 

SH  I 

c  7  9 

GC  TC  1170 

SHI 

580 

740 

IF  (PSPIP ( J,4) .NE.8)  GC  TC  760 

CHI 

68  1 

KCCAYS  (J, 2 )  =  1 0 0 

5PI 

682 

IF  (KO AY  «LE  •  3)  GC  TO  470 

SHI 

68  3 

HSPIP ( J,3)=7-KCAY 

SHI 

684 

GC  TC  1170 

SHI 

585 

C 

SP  I 

686 

75  C 

00  *00  JX=1,K1 

SHI 

c  8  7 

IF  (HSHIP ( JX,6) . KE *6)  GC  TC  8 C 0 

*PI 

c  8  8 

C 

SHI 

c  8  9 

K= JX 

SPI 

660 

P5=HSHIP(K,5) 

SHI 

591 

c 

SHI 

c  6  2 

c 

*PI 

593 

c 

SP  I 

6  6  4 

CC  760  JY=6,9 

SH  I 

695 

IF  (FR AME  (K5 , JY)  .FQ. SHIP ( JZ1 , 20 >  >  GO  TO  770 

SPI 

5C£ 

76  C 

COKTIMJF 

SH  I 

c9  7 

GC  TC  800 

*P  I 

568 

C 

SPI 

669 

7  7  C 

IF  (SHIP(K,16>  .GF.SHIP ( JZ1 ,16 ))  GC  TO  780 

*PI 

600 

PRITE  (6,1660)  K , JZl 

*PI 

601 

GC  TC  800 

SP  I 

6  C  2 

7  8  C 

IF  (FRAME ( N5 , 4 ) • EG • 0 • )  GO  TC  POO 

SHI 

FO7 

IF  (FRAME  (N5,4)  .  L  E  .  F  R  A  P  E  (  N  6  , 16) )  GC  TC  7^9 

SPI 

634 

C 

GREATER  THAN  ** 

^PI 

605 

C 

^p  I 

F  1  6 

IF  (SHIP(K,17) *LE*FRAME(N6,16))  CC  TO  7°C 

SP  I 

6  C  7 

r 

6  0  8 

IF  (FRAMF  (P5,2)-FRAME  (N5, 11) .LT •SPIPCJ21, 1 c )  )  CC 

TC  76  0 

^PI 

6  C  9 

FACE 


% 


11 


605 


A-13 


rrqgr  a  f 


SHIFIK 


*f:c  ftf  v?.c-c?9i  cpt  =  i  :w;; 


1  7 . 4  7  .  '  4  , 


610 


615 


620 


625 


630 


635 


64  0 


645 


650 


655 


7°  C 

60  C 

61  C 


620 

r 

6  3  C 


C 

64C 


650 


6  6  C 
670 


IF  (  F  R  £  WE (F5,3)-FRAFF  ( ^  *  ,  l?)  .LT,^HI°(J71,14)  )  Cf  TC  7cn 
IT*FfE=? 

GC  TC  MO 

ITFNCR=1 

CCMIMJF 

IF  (ITFNOP.fcC.n)  NCDAYS(J,2)=1GG 
JX=K 


CH  I 
SHI 
SH  I 
chi 
c  H  T 
SHI 
SHI 


CHFC*  IF  SHIP  IS  IF  *CRT 


TP  <hSFIP(j,?>  .EC.?)  C-G  TC  6  2  C 
IF  CITFKDP.EC.l)  CC  TC  1175 
IF  ( KC  A  Y  •  L  F • 3)  GC  TO  440 
H CH  I P (J,3)=7-KrAY 
C-C  TC  117  0 

IF  (  I  T  FNDR- 1 )  4C-C,90G,100u 

mmmvmmmm  SFIIP  LFAVING  WAS  JF  <MRFAH  mmmmmm  f«*M 

STREAK (KZ ,1) *0  . 

STRFFF  (KZ,2) =0  . 

CC  TC  660 

iiiiiMMfiMMf  M  SFIIP  LEAVING  WAS  NESTED  **************999999 
XFRAFE=FRAPE(N5*16)-1. 

FFR  =  F5-F,2*1 
CC  P7Q  K=l,Kl 

««m**m*«  CHECK  FOR  SHIP  NESTEC  TC  ONE  THAT  IS  LEAVING  ******** 

IF  (HSHIP  (K,5)  * NE  .N5)  GO  TO  *7C 

mvmmmmmm  CHECK  IF  TFI^  IS  TFE  ONE  L*AVIFC  *************** 

IF  ( K . 6Q  «  J  Z 1 )  GO  TO  67C 
IF  (FR AME (FFR, 16) . NE • 0 • 0. ANC. SHIF ( K, 16) . IT ,SHIF ( JZ1 ,16) )  GO  TO  670^61 
9999999999  HAVE  FOUNO  SHIR  NF  c  TE  0  TO  ONE  THAT  IS  LEAVING  *******  SF I 
**  **  ******  ***  ***  ****  *9  ^1  |C  JHF  SFIP  NUH°FR  *********************  <^  h  I 


c  H  I 
c  F  1 
SF  I 
PHI 
SF  I 
PH  I 
S  H  t 

Ch  I 

PF  I 
ch  I 
chi 
CHI 
c  H  I 
P  F  I 
SHI 
PF  I 
SF  I 
SF  I 


F  1  =K 
IF  1=1 


****  CHANGE  STATF  TC  THAT  OF  FIFRSICF  *********** 

IF  (FSFIP  (K,4)  .EG. 5)  HSHie  (K  ,4)  =  1 
IF  (FSFIP CK, 4) . EC. 6)  HSHIF(K,4)=3 
IF  (FSFIP  (K, 4)  .PC. 7)  H5HTF(K,4)=4 

99  99*9  ******9*****  *9  9  C  H  F  C  K  IF  SFIF  IS  fl  TENTE^  IIII9III9IIII9»I99^T 

IF  (SHIP (K,4) ,GT .0.)  HSHIF(K,F)=e  crj 

99*99*999*9**9**  CHANGF  F*  A  *  F  CF  SHIP  AT  Fire^TTP  £  N  f  (“T  1  **w  ******  j 
***  CF  SHIPS  SEP  TF  C  T  H  E  R r  ********i**iiiiiiriii»Mii9C|.  j 


SF  I 
PF  I 
PF  I 
Pfl 
SH  I 
PF  I 


6 1  n 
mi 
F  1  2 
M3 

614 

615 
61* 
617 
615 
61  c 
M0 
6  2  1 
c  o  7 

6  23 
*24 

62* 
6  27 
62* 
62° 
630 
6  2  1 
6  3  2 
633 
*34 
6  3  5 
636 
6  37 
6  3  5 
6  3  9 
*40 
64  1 
6  4  7 
6  47 
6  4  4 
64  5 
6  4  6 
64  7 
6m  * 


CC  *6C  K  Z  =  1  ,  N  2 

PF  i 

6  4° 

IF  (FRAHF (K5,16)  .LE.n.L)  GC  TC  55C 

Ph  I 

C  C  ' 

F9AHE  (F5 , 1 3) =N  1 

PHI 

65  1 

FRAFF (  F  5  , 14) =  S  HI F (Ml ,3) 

PF  I 

65  ? 

FR AHE (  F  5 ,  15) =SHIF ( N 1 , 3) 

p  F  I 

6  5  3 

FRAH6  (N5,16)=FPAH*  ( N  c  ,  1  6  )  -1. 

P  F  I 

6  5  4 

CC  TC  6*0 

PHI 

F  6  5 

FRAHF  (F5, 1  )  =  1  . 

PH  I 

656 

FRAFE (F5, 13)=0 . 

P*I 

6*7 

FRAF6 (  F6, 1  4)  =MAFK 

P  H  I 

ec  6 

FRflHF (F5, 1 5 )  =  0  . 

PHI 

6*9 

F  5  =  F  5  -  1 

PH  I 

66 : 

GC  TC  640 

SH  T 

6  F  1 

CCFTIFLF 

SH  I 

6c? 

FRIFT  1670,  J7 1,  (SHIP  ( JZ1  ,K) ,K  =  ?  ,4) 

CH  I 

F  f  7 

S  T  CF  I'M 

PHI 

*  F  4 

•AG* 


12 


660 


A-14 


PRCGR AN 


5P IP  IN 


COO  66iH  FTK  VT.C-F291  0PT  =  1  G4/27/72  1  7  .  4  7  .  1 4 


FA  G  5 


1 


66  *5 


67Q 


675 


6  a  o 


685 


690 


695 


700 


705 


710 


715 


C 

c 

c 

esc 


r 

09G 
50  0 


c 

510 

c 


520 


930 

C 

c 

94C 

550 

C 

c 


c 

c 

560 


570 


SHIF  GCES  TC  ret  IF  IT  FAS  NCI 

****************  YFT  PE5M  IN  C  I  LCNG  ENCUCH  *********** 
jq  gq  CN  r>T  CPS  ********************** 

P^PIP (J,3>=21 

SHIP (J  ,20) =5HIP ( J,2Q> *20 C  . 

nupci^numo  i*i 

****************  CHECK  IF  SHIP  IS  IN  PORT  ************** 

IF  (PSPIP (J,2> .NF.1>  GO  TO  "90 
IF  (PSHIP ( J,4>  .NE  .0)  GC  TC  51C 

*********************  chip  needs  pcm  statf  ************* 
P^PIP ( J,6>=5 
P  =  H1 

ARRV (P  ,1)  =  J 

ARRV  <P  ,2) =SHIP ( J,2Q) 

PSHIP (J, 2) =1 
GC  TC  1170 

*********************  CHECK  IF  SHIP  IS  IK  C  I  AT  TENOER 
IF  (PSHIP (J,4) .NE.8)  GO  TO  920 

*********************  SHIp  is  IN  C  I  AT  TENDER  ********* 
****************  CHECK  IF  DAYS  TC  GO  IN  THIS  STATE  ***** 

****************  H/1VE  EEEN  reached  ****************** 

IF  (PSPIP  <J,6>  .EC. 5)  GC  TC  9*4(3 

*********************  SHip  REPAINS  AT  TEKOER  *********** 
**************  ADJUST  CAYS  TC  GO  TC  THOSE  CF  PCH  ******* 
HSHIP (J,31 =21 -SHIP  ( J  ,  1 3) 

HSHIP ( J >  6) =5 

IP  (PSHIP (J, 31 .GT.O)  GO  TO  1170 
SH IP ( J ,20)=SHIP( J,20) -100  . 

GC  TO  950 
PSHIP  (J,6>=5 

IF  (HSHIPf J,41 .EQ. Ill  GO  TO  1170 
N2=SHIP(J, 16) 

N5=HS  H IP ( J  »  51 
DO  930  K=1,N2 

IF  (FRAHE(N5,2I  .  L  T  .  SH  I P  ( J ,  15  )  )  GO  TO  44  0 
IF  (  FRAME  ( N5 , 3 )  .LT  .SHIP(J,14)  )  GC  TO  440 
N5=  N  5-  1 
GC  TC  1170 


#«***«****«***« 


NUPC 1  =  KUPr I- 1 
N5=HSHIP( J,5) 
N2=SHIP(J,16) 


SHIP  IS  REACY  TC  LEAVE  TENOER  ANO  TO 

GO  CUT  ON  EXT  OFS  ********************  4 


CHECK  TO  SEE  IF  FRAME  COUNTER  PAS  EEEN  SET 
CCRRECTLY  ******************4 
IF  (FRAM€(N5,16> .GE.l.)  GC  TC  96C 
FRINT  1600,  J, (SHIP( J,KI ,K=2,4) ,NE 
STOP  111 

*******  AOJUST  UTILITIES  AT  FRAPES  PPERE  SPIF  WAS  « 
****************  NESTED  TO  TENOER  ********************** *S  * 

CC  970  K=1,N2 

FRAPE (N5, 1 1 > =FRAPE f N5 , 1 1 > -SHIF( J 2 1,1 5) 

FRAPE (K5, 12I=FRAHE(N5, 12> -SHIP ( J 2 1 ,1 4 ) 

FRAPF (N5, 16)=FRAHE (N5, 16) -1 
N5=N5- 1 


^PI 

665 

^P  T 

^66 

1  c  P  I 

667 

SHI 

660 

^P  I 

tea 

9P  I 

670 

^P  I 

671 

SHI 

672 

*PI 

67? 

CH  I 

674 

*P  I 

679 

SHI 

676 

CHI 

677 

SPI 

6  7  0 

SHI 

679 

SH  I 

600 

SHI 

601 

SH 

602 

SHI 

603 

SH  I 

604 

SHI 

605 

SPI 

606 

SHI 

60  7 

SHI 

600 

SHI 

689 

SHI 

690 

SHI 

691 

SHI 

692 

SHI 

693 

SHI 

694 

SHI 

695 

SHI 

696 

SPI 

697 

SPI 

698 

SPI 

699 

SPI 

700 

SHI 

701 

SHI 

702 

SHI 

703 

SHI 

704 

SH  I 

705 

SHI 

706 

SHI 

707 

SPI 

708 

SPI 

709 

SHI 

710 

SPI 

711 

chi 

712 

SPI 

713 

SPI 

714 

SPI 

715 

CPI 

716 

CPI 

717 

SHI 

710 

SPI 

719 

A-15 


PPQGRAh 


SFIPIN 


CDC  660  C  F  T  h  V3.0-F291  OPT=l  C4/27/72  17.47.34. 


FACE 


14 


720 


725 


730 


735 


740 


745 


750 


755 


760 


765 


770 


C 

S*C 


C 

c 

SRC 


SF IP  ( J  ,2 1 )  =  9  • 

SFIF  (J,22)  =  H.  ***! 

FSFIF(J,5)=0  CHI 

*********************  SHIC  LEAVING  FOR  E>T  CPS  *******************SF  I 

KUHN  I -  MJMN I -  1 
KLFCI=NUHCI-1 
FSHIF ( J,4) =0 


**************** 


C 

10C0 


1010 

c 


c 

c 

c 

1020 


SHIP  IS  GCING  DIT  ON  EXT  OPS 
GET  DAYS  SHIP  FAS  TO  GC  Oh  EXT  CPS 

FEAN-SFIP  (J,7) 

STANCV=SHIF(J,8> 

CALL  N  CPF  A  L  (GIST  »HEAN,STANCV,RST) 

HSFIP  (J,2)=DIST  +  0.5 
hUFFC=hUHEC+l 
FSFIP (J,2>=2 
F-SHIP  (  J,4  )  -0 
FSFIP ( J,6)=l 
GC  TC  1170 

„*„„*,,*** ********  SHIP  IS  p  L  aceo  at  tender 

K  =  J  X 

K5  =  FSF IF ( K  ,  5) 
h  2  =  SF I F ( J  »  16  ) 

FSFIP (J,5>  =N5 
FSFIP (J, 2) =1 
FSFIP(J,3)=SHIP( J,13) 

FSFIP ( J i 6 ) =  2 
HSFIP  ( J,4 ) *8 

****************  ACJLST  UTILITIES  AND  NUF9FR  SESTET 
****************  flT  the  fr ahes  TENOER  OCCUPIES 
CC  1010  L  - 1 »  K  2 

FRAHE(N5, 11)=FRAME(N5 ,  1 1 )  +SH  I  P  (  J  2  1 , 15  ) 
FRAFE<N5,12)=FRAME(N5,12MSHIF(JZ1,14) 

FRAME(K5,ie)=FRAFE(N5,  16)  M. 

K  5  =  N  5  - 1 

MMiMfMffofv  PUT  UTILITIES  IF  SHIP  HATRIX  TFAT  SFIP 
****************  RECEIVING  FRCF  TENOER 
SHIP ( J,21)=SHI P ( J, 15) 

SHIP  (Jj22)=SHIP(Jj14) 

GO  TC  1170 

t*******  SHIP  CHANGING  STATE  WAS  IK  CVERFAUL 

SET  NUFPER  CF  OATS  UNTIL  GCES  AGAIN  ***********  SHI 
******  **********  tc  CVPRHAlL  *******  * **** *  * ** ** ***** ** ** * ** ** **Sb  I 
HE  AN-SF IP ( Jf 11)  SHI 

ST ANCV=SHIF (J, 12)  SHI 

CALL  N  CRH  A  L  <  O  1ST  ,  HE  A  N  ,  ST  A  N  C  V  ,R  S  T  )  SFI 

NCDAYS  (J, 1 )=OIST*0 .5  SHI 

NFIDVR=NHICVR-1  SFI 

IF  (NCCAYS  ( J  ,  3  > • LE  •  0 )  GO  TC  990  SFI 

>**  NOT  TIME  FCR  EXT  CPS  SD  SET  CAYS  **************** SHI 
*******  T g  GD  UNTIL  TIFE  FOR  TENTER  *********************SFI 
NCCAYS  (J,2)  =  100  SFI 

FSFIP ( J  »  6 ) =2  SFI 

NUFNI=NUHNI*1  SFI 

IF  (SFIP(J,4>.GT.0.0)  GO  TC  EE0  SFI 
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775 


700 


705 


7«0 


795 


800 


005 


010 


015 


020 


C 

c 

1  G  3  C 


C 

1  0 1»  o 

c 

c 

c 

c 

c 


c 

c 

1050 


c 

10  5  0 
C 

1070 


C 

1000 


1QC0 

C 

C 

1100 

C 

C 


YFL=RANF (3^T>  c  H  I 

IF  (KCQY.GT.7)  GC  TO  1 C  3  0  ^  h  I 

mmmmvvmmm  CHECK  if  SHIP  IS  GOING  CUT  C  R  IN  *»***»f»**»f****c^i 
¥¥*¥***#***¥*♦**  Q  R  QP$  STATE  *  ♦**  *  *  *  *  **  ♦  *  *  *****  *  *************  * 

IF  (YFL.GT.0.5)  GC  TC  570  fhi 

HS  H  I F  (  w  *  2  )  =  1  SHI 

Y  F  L  =  R  A  NF  (9SD  SHI 

HSHIF  (J,3)=4*YFL  +  7-K0AY  SHI 

F  =  V  +  1  SHI 

ARRV(M,1)=J  SHI 

ARRV  (H  ,2) =  SHIP (J,2G>  SHI 

GC  TC  1170  SHI 

****************  SHIF  CHANGING  SIATE  WAS  AT  FIEBSIOE  IN  C  I  ******CHI 
SHIP (J  ,20)=SHIP( J,20) -10C .  SHI 

NLHC I=NUHCI-1  SHI 

N5=HSHIP ( J,5)  SHI 

N2=SHIF(J, 16)  c H  I 

C  HF  C  K  IF  TIHE  TO  GC  TO  OVERHAUL  ****##*♦*»♦* SH I 
IF  (NCOAYS(J,l) • LE  •  0  )  GO  TC  1C60  SHI 

****************  CHECK  IF  TIHE  TC  GO  NOR  OFS  ********************  SH  I 
IF  (NOCAYS (J,3) .LE.O)  GO  TC  1C70  SHI 

IF  (SH  IP ( J  f  4 ) .GT • C • )  GC  TC  6  0  0  SHI 

♦* **♦ ********* **  SHIp  flT  FIERSIOE  ANO  IN  C  I  GCES  CN  NOR  OPS  •♦♦••SHI 
****************  SFT  0flYS  TC  G0  LNTIL  TENOER  *********************$» I 
NCCAYS  ( J  ,  2)  =  10  0  SHI 

HSHIF (Jj6) =2  SHI 

♦• ********* CHECK  IF  SHIF  IS  GOING  CUT  CR  IN  CN  NOR  OPS  •♦♦♦♦SHI 
YFL=RANF(RFT)  SHI 

IF  (KCAY.GT.3)  GO  TO  1050  SHI 

IF  (YFL.GT.0.5)  GO  TO  440  SHI 

****************  SHIP  ►hICH  HAS  AT  PIERSIOE  IN  C  I  IS  STAYING  ♦♦•♦SHI 
****************  IN  y  CN  K0R  cp$  *********************************SHJ 

YFL  =  R  A  NF ( RST)  SHI 

HSHIF ( J,3)=4*YFL*7-K0AY  SHI 

GC  TC  1170  SHI 

****** ******** **  SHIP  flT  pippcjpp  IN  c  I  GCINC  TC  OVERHAUL  #******SHI 

IO  VR  =  1  ^HI 

GC  IC  1090  SHI 


*********************  $HIp  flT  pjerSIOE  IN  C  I  GCING  FCH  ********** s H  l 


I P  CH  =  1  SHI 
SHIP ( J,20)=SHIP( J, 20) *10C  .  *HI 
GO  TO  1090  ^ H I 
****************  SHIF  CHANGING  STATE  WAS  IN  FCH  ♦♦♦♦•♦♦ **,,****,**$,_ j 
SHIP ( J  ,20)=SHIP( J,  20) -10  0  .  SHI 
N5=HSHIP(J,5)  SHI 
I P  CM= 1  SHI 
IF  (HSHIP  (J,4)  .NE.l)  GC  TC  40C  SHI 
GC  TC  460  SHI 


SHIP  CHANGING  STATE  WAS  A  TENTER 


****************  SUPPLYING  LTILITIES  ********* 

CC  1150  K=i,Ki  SHI 
****************  CHECK  IF  THIS  IS  A  TF.NCER  OF  SANE  CLASS  ********  *cp  l 
IF  (SHIP(K,4)  .NE.SHIPCJZ1  ,4))  GC  TO  1140  SHI 
****************  CHFCK  IF  THIS  IS  THE  TENOER  CHANGING  STATF  ♦♦♦♦♦♦SHI 


IF  (K.FO.J71)  GO  TO  1140 


SH  T 


775 

776 

777 
770 
779 
700 
7®  1 

702 

703 
70  4 

705 

706 

707 
700 
709 
790 
751 

792 

793 

794 

795 

796 

797 
750 
799 
000 
001 
002 
003 
004 
005 
006 
807 
000 
009 
010 
011 
012 
013 
014 
015 
016 
017 
010 
019 
0  2  0 
021 
02? 
023 
024 
025 
026 
027 
f  ?  ° 

8  2° 


IS 


625 
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830 


835 


84  0 


845 


850 


855 


860 


865 


870 


875 


980 


c  CHECK  IF  This  TFNCF0  IS  SUFFLYING  UTIL.  *********SH  j  giQ 

IF  (t-SI-IP  (K,6)  .NE.6)  GC  TC  HIT  SHI  831 

IT  FNC  =  -1  <;mi  832 

GC  TC  1140  SHI  8  3  3 

1110  IF  (ITENO.LT. 0)  GO  TC  1140  SHI  834 

IF  (ITENO.GT.O)  GO  TC  1130  SHI  835 

1120  ITFNC=HSHIP (K, 3) +1  SHI  836 

GO  TC  1140  SHI  837 

1120  IF  (ITENO.GT.HSHIP  (K,3))  GC  TC  1120  SHI  838 

c  CHECK  IF  TENDER  THAT  IS  CHANGING  STATE  ♦♦♦♦♦♦♦♦♦♦SH  I  839 

c  ,**,*,****»»«»„  IS  hESTFC  ,*,**,,******,,*,*,,*,,,***, I  840 

1140  IF  <HSHIP(K,5> . NE . HS HIP < JZ 1 , 5 ) I  GO  TO  1150  SHI  841 

c  ,»*,*,****«***««  CHECK  IF  THIS  IS  THE  ONE  THAT  IS  8*2 

C  **,****„„,„„  CHANGING  ^TATE  ♦♦♦♦♦♦♦ ♦♦♦♦♦»*♦♦♦♦♦♦**♦ ♦*****♦♦•*♦5^1  543 

IF  (K.EQ.JZ1)  GO  TO  1150  SHI  844 

c  CHECK  IF  OATS  TC  GO  FOR  SHIF  NESTEO  ARE  ♦♦♦♦♦♦♦♦♦SHI  845 

c  «M***«***MM9f  GREATER  THAN  THCSE  OF  TENDER  ♦♦♦♦♦♦♦ ♦♦♦♦♦♦****¥*#SHI  846 

IF  (HSHIP (K,3) ♦LE . HSHIP ( JZl,2 ))  GOTO  1150  SHI  847 

c  SET  OAYS  TC  GC  FCR  TENOER  TC  THCSE  OF  ♦ ♦♦♦♦♦♦♦♦♦♦S H I  848 

HSHIF ( JZl,3)=HSHIP (K,3)  SHI  850 

1150  CONTINUE  .  SHI  851 

c  CHECK  IF  TENDER  CAN  CHANGE  STATE  NOW  ♦*♦*♦♦♦♦♦*♦*5 H I  852 

IF  (ITENO.GT.O)  GO  TO  1160  SHI  853 

HSHIF(J,6)=7  SHI  854 

IF  (HSHIP (J, 3) .NE. 0)  GO  TC  1170  SHI  855 

c  ,*«**»*,*,»**,«»  TENDER  MAY  CHANGE  ITS  STATE  ♦♦♦♦♦♦♦♦♦*♦♦♦**♦♦♦ ♦♦♦Sh I  856 

GC  TC  650  SHI  857 

C  *********************  TENCER  STAYS  IN  *♦*♦♦♦♦♦♦♦«♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ ♦♦SH I  858 

1160  HSHIP(J,3)=ITEND  SHI  859 

1170  CCNTINUE  SHI  860 

C  ALL  SHIPS  HAVE  BEEN  crccESSEC  SHI  861 

C  SEARCH  FOR  SHIP  BERTHFO  AT  PIER  RUT  NCT  SHI  862 

C  USING  PIER  UTILITIES  A  NO  EXPECTING  TO  STAY  HCRE  SHI  863 

C  THAN  3  OAYS  ^HI  864 

NFL A  G  =  2  SHI  865 

1180  NFL A  G=NFL  AG-1  SHI  86 6 

C  SELECT  HIGH  PRIORITY  SHIPS  FIRST  SHI  867 

A  =  2  0  0 .  SHI  868 

DC  .1240  J=l,2  SHI  869 

A- A- 1 00 •  SHI  870 

CC  1240  KG=1,K1  SHI  871 

IF  (SHIP(KG,20) .LT.A)  GO  TO  1240  SHI  872 

IF  (HSHIP  (KG, 4)  .LT. 2)  GO  TC  1240  SHI  873 

IF  (HSHIP(KG,4) .GT.7. OR. HSHIP (KG,4).E0.5)  GO  TC  1240  SHI  874 

IF  (HSHIP (KG, 3)  .LT  .3)  GO  TC  1240  SHI  875 

IF  (HSHIP (KG, 6) .EQ. 6)  GO  TC  1240  SHI  876 

IF  (SHIP(KG,4)  .GT . 0. 0 . AND  .A .LT . 100)  GO  TC  124C  SHI  P77 

C  ♦*****chip  MEETS  CRITERIA  SC  SEARCH  FOR  UTILITIES  ♦♦**♦**♦**  SHI  678 

N=KG  SHI  879 

H6=0  SHI  880 

C  GET  LCCATICN  CF  SHIP  (HIGH  FRANF)  SHI  881 

NA=HSHIP(KG,5)  SHI  882 

NG=NA-SHIP(N,16) *1.  ^HI  Pe3 

C  GET  NECESSARY  UTILITIES  SHI  88 4 
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F  AGE 


1  7 


N0=FRAf-P(NA,17) 

SHI 

8?  5 

C 

AS  AND  PA  REPRESENT  THE  MAXIKIH  AHCUNT  CF 

STFAf  AND  AC  FROVICAELE 

SH  I 

886 

BA=SHIF(N,14) 

SHI 

807 

A  S  =  SHIP (N , 15) 

SHI 

888 

885 

CC  1190  KH=NG,NA 

SHI 

889 

C 

C  IS  THF  AMOUNT  CF  UTILITIES  AV A IL ABC  r 

SHI 

890 

C=FRAME(KH,2> -FRAHF(KH,11> 

SHI 

891 

IF  (AS.GT.C)  A  S  =  C 

SHI 

892 

C=FRAHE(KH,3) -  FR  A  M  E  (  K  H  ,  1 2  ) 

SHI 

893 

89o 

IF  (BA.GT.C)  RA=C 

SHI 

894 

1190 

CONTINUE 

SHI 

895 

C 

AC  ANO  ST  REPRESENT  THE  ME EC  CF  THE  SHIP 

SHI 

896 

AC=SHIF(N, 14) -SHIP(N,22) 

SHI 

897 

ST=SHIF(N,15) -SHIP (N,21) 

SHI 

898 

895 

C  =  P I E R  (ND,3)-PIER(N0,4) 

SHI 

899 

IF  (EA.GT.C)  8A=C 

SHI 

900 

C=FIER (NC,1)-PIERCND,2) 

SHI 

901 

IF  (AS.GT.C)  A  S  =  C 

SHI 

902 

C 

M6  =  l  MEANS  THAT  THE  SHIP  CAN  EE  FRCVIOFC  FILL  LTILITIES 

SHI 

903 

930 

IF  (AC.LE.EA.AND.ST.LE.AS)  M6=l 

SHI 

904 

IF  (AC  . GT .PA)  AC  =  B A 

SHI 

905 

IF  (ST.GT.AS)  ST  =  AS 

SHI 

906 

IF  (ST+AC  •  LE  •  0  •)  GO  TC  1230 

SHI 

907 

C 

IF  UTILITIES  ARE  AVAILAPLE,  AGO  THEM 

SHI 

908 

905 

CC  1200  KH=NG,NA 

SHI 

909 

FRAME  (KH, 1 1) = F RA HE (K H , 1 1 ) 4 ST 

SHI 

910 

1200 

FRAME (KH,12)=FRAHE(KH,12) *AC 

SHI 

911 

PIFR(ND,2)=PIER(ND,2MST 

SHI 

912 

PIER (NC,4)=PIER(ND,4) >AC 

SHI 

913 

910 

SHIP(N,21)=SHIP(N,21)4-ST 

SHI 

914 

SH IF (N,22)=SHIP(N,22) 4  AC 

SHI 

915 

C 

CHANGE  IN-FORT  STATUS  TG  RFFLECT  UTILITIES 

ACOEO 

SHI 

916 

IF  (M6.FQ.1)  GC  TC  1210 

SHI 

917 

IF  (HSHIP (KG, 4) . EQ. 7)  HSH IP ( KG , 4 ) =6 

SHI 

918 

915 

IF  (HSHIP (KG, 4) .EQ. 4)  HSH IP ( K G , 4 ) =3 

SHI 

919 

GO  TC  1220 

SHI 

920 

1210 

IF  (FSHIP(KG,4>  .GT.5)  HSH I F ( K G , 4 ) = 5 

SHI 

921 

IF  (HSHIP(KG,4).LT.5)  HSH I F ( K G , 4 ) =1 

SHI 

922 

1220 

IF  ( I J° A • NE • 1 )  GC  TO  1230 

SHI 

923 

920 

FRINT  1690,  KG 

SHI 

924 

IF  (M6.NE.1)  HRITF  (6,1700) 

SHI 

925 

1230 

IF  (HSHIP  (KG, 6) . EQ. 4)  HSH I F ( K G , 3 > = 30 

SHI 

926 

IF  (HSHIP  (KG, 6)  .EQ .5)  HSHIP (K G , 3 ) =21 

SHI 

927 

12  4  0 

CONTINUE 

SHI 

928 

925 

IF  (NFLAG.LE.O)  GC  TC  1330 

SHI 

929 

M1  =  M 

SHI 

930 

M2  =  N  51 

SHI 

931 

IF  (H2.EQ.0)  GC  TO  1270 

SHI 

932 

H21=H51 

SHI 

933 

930 

M  5 1=  0 

SHI 

934 

C 

STCRE  CIO  STREAM  IN  NEH  STREAH 

SHI 

93  5 

CC  1250  J=1,H21 

SHI 

936 

STREAH  (J,1)=STREHN(J,1) 

SHI 

937 

STREAH  (J,2)=STREMN(J,2) 

SHI 

938 

935 

1250 

ccntime 

SHI 

9  3  9 
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18 


940 


945 


950 


955 


960 


965 


970 


975 


9  3  0 


985 


CC  12  6  0  J  =  1 ,  M  2  1 

C  PLACE  FRTCPTTY  SHIPS  WAITING  IN  S  T  FF  A  M  ocpCpF  PLACING  M  z 

IF  (STREAM(J,2) .LT.1C0.)  GC  TC  126C 
KM^STRFAM ( J, 1) 

HFHIF (KM,3)=21 

IF  (^TRFAM(J,2)  •  L  T  •  2  C  3  •  )  H5H IP ( K M  ,  3) =70 
STREAM  (J,2)=3 
N=HSH I F  (KM  ,  1) 

ICA  YS  =  HSHIF (KM ,3) 

CALL  FLACF  (IJ9A) 

HSHIF  (KM, 4) =G 
H  c  H  I  F ( KM, 5) -HF 
1260  CCNTINUF 

1270  IF  (Ml .FQ. 0)  GO  TO  1 290 

C  PLACE  PRIORITY  NEW  ARRIVALS  EEFCRF  PLACING  REMAINING  IN 

CC  1280  J- 1 ,  M 

IF  ( ARRV ( J,2) . LT . 1 00 . )  GO  TC  128C 
KM  =  ARRV  (J, 1) 

HSHIF  (  KM, 3 ) =2 1 

IF  ( ARRV ( J , 2 ) . LT  .20  0  . )  HSH IP ( KM , 3 ) =30 
ARRV  (J  ,2)  =  0 
N=HSHIP(KM, 1) 

ICAYS=HSHIP(KM,3) 

CALL  PLACE  (  I J 9 A ) 

HSHIF(KM,4)=G 
HSHIF  (  KM, 5) =HF 
1280  CCNTINLE 

1290  IF  (M2.EQ.0)  GO  TO  1 31 C 

C  PLACE  REMAINING  IN -STREAM  SHIPS  EEFORF  PLACING  REMAINING 

00  1 3  0  C  J  =  1 , M  2 1 

IF  (STRFAM(J,2) •  EQ • 0  • )  GO  TC  130C 
KM  =  S  TR E  AM ( J, 1) 

N=HSHIF (KM  ,1) 

IDAYS=HSHIP(KM,3) 

.  CALL  FLACE  (IJ9A) 

HSHIF ( KM  ,  41 =G 
HSHIF  (KM,5)  =  HF 
13  C  0  CCNTINUF 

C  FINALLY,  PLACE  REMAINING  N  EM  ARRIVALS 

1310  IF  (Ml.FG.C)  GC  TO  1180 
CC  1320  J=1,h 

IF  (ARRV  (J, 2) • EQ • 0 • )  GC  TC  13  20 
KM=APR V ( J , 1) 

N - HSHIF(KM,1) 

ICAYS=HSHIF(KM ,3) 

CALL  FLACF  (IJ9A) 

HSHIF (KM, 4) =G 
HSHIF  (KM, 5) =HF 
1?  2  0  CCNTINLE 

CC  TC  1180 

1330  CALL  CinSTA  (ICSTAT) 

1340  CCNTINUF 

C  ENC  CF  QUHPIE******************  *  ****** 

CC  1 35  G  J  =  1 , K 1 
CC  1  3  5  C  KM=1,14 


chi 

W  APPIVALSS^I 
SHI 
SHI 
SHI 
SHI 
FHI 
FHI 
S  H  I 
SHI 
SHI 
SHI 
SHI 
SH  I 

STRFAM  SHI 
SHI 
SHI 
SHI 
c  H  I 
SHI 
SH  I 
SH  I 
SHI 
F  H  I 
SHI 
SHI 
SHI 
FHI 

NEW  ARRIVSHI 
SHI 
SHI 
SHI 
SH  I 
SHI 
F  H  I 
CHI 
SHI 
SH  I 
FH  I 
SH  I 
FH  I 
SHI 
FHI 
FH  I 
FH  I 
SHT 
FHI 
FH  I 
SHI 
SHI 
SHI 
SHI 
SHI 
FHI 
SHI 


c  4  3 
c  4  1 
9  4° 

943 

944 

945 
c46 
c  4  7 
948 
c  49 
c  5  0 

951 

952 

953 

954 
9  55 

956 

957 

958 

959 

960 
96  1 
c  6  2 
c6  3 

964 

965 

966 

967 

968 

969 

970 
c  7  1 
97? 

973 

974 

975 

976 
c  7  7 
973 

979 

980 

981 
9  8? 

983 

984 

98  5 

can 

99  7 
98  8 
9  89 
c  9  D 
991 
c  9  2 

cci 

CC4 


990 
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995 


10  0  0 


1085 


1010 


1015 


1020 


1025 


1030 


1035 


1 0%0 


1045 


SUPIK 
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1350 


C 

1360 


1370 
13  8  8 
135  0 
1400 


1410 

C 

1420 

1430 

1440 

1450 


ICSTAT!J,KM,2)=IGSTAT(J,KM,2)+ICSTATIJ,KM,1) 

IF  (IJ8.LE.0)  GO  TO  1360 

CALL  FRTCTR  !  NC  ,  I  X  ,  IF C RT  ,  I CST AT ) 

calcllate  tenoer  cyclf 

GO  1 3  9  C  J=1,K1 

IF  (HSHIP! J,6)  .NE.2)  GO  TC  1370 
IF  INCCAYS  (J,2I .LE.O)  GO  TO  1370 
YFL=RANF!RST) 

NOCAYS  !J,2)=!91.*YFL>+1 

CO  1380  KM=1,14 

IDSTAT!J,KM,1)=0 

CONTINUE 

CCKTINLF 

IF  CIJ8.EC.0)  GO  TO  1410 
IX=IX*1 

CALL  PRTQTR  ! N Q , I  X , I  PORT , I CS T A T ) 

STOP  200 


SHI  cq5 

SHI  oc6 

SHI  597 

SHI  998 

SHI  999 

SHI10Q0 

^HIlCOl 

SH 1 1 C  0  2 

SHI1CQ3 

SHI1004 

SHI10C5 

SH  I1C06 

SHI1CQ7 

SHI1008 

SHI1C09 

SHI1010 

SHI1011 

SH  1 1  01 2 

SHI1C13 

SHI1014 

SH  1 1 01 5 

SHI1016 

SH  11017 

SHI1018 

SHI  10185 

SH 1 1 0 19 

SH II 0 1 95 

SH 1 1 0  2 0 

SHI102Q5 

SHI1021 

SH 1 1 02  2 


1460 


1470- 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 


1560 

1570 

1580 

1590 

16C0 


FORMAT  (3  13, 12, II,  514, 411, 2A  8, 3  ID 

FORMAT  !F3.0,A4,F2.0,F3.1,4!F4.0,F3.Q,) ,  3F  4 . 0  ,  F2  .  Q  ,  F  1 . 0 , 5F4 . 0 ) 

FORMAT  ! 1H1 ,T4  8,*  SHIPS  H  CMEFOR  TEC  *,2A8) 

FORMAT  (1H0,T3,*SHIP  NO.* ,T12,’NAME*,T17  ,*$EC.*, 

1T22, ’CLASS’, T29,*N0R  -  OPS*  ,T 43 , *E XT  -  OPS*, TEC, 

2* IN  CVRHL*  ,T70, ’BETWEEN  0 VRHL * , T 8 5 , ’ A T  TCR*,T92, 

3’ A  .C. *,T9  9,*STM* ,T 1 0 6 , *FR * ,T 1 1 1 , *  NEST ♦ , T 11 7 , *  A .C .* ,T 12  3,’STM’ , 

4  T 1 29  , 

5*PR*,/T3l,’(0AYS)*,T45,*(0AYSl’,T59,* (DAYS)’, T 73, 

6*(CAYS)*,T84,* (OA/QTR)* ,T92,*NEE0*,T99,’NEED*  ,T105, 

7’HEE  C’,T111,’MAX’,T17,*N0 .*,T117 ,*FURN* , T 1 2 3 , * FURN* ,/ 

8T29,’MEAN  S . 0 . ’ , T 43 , ’MEA N  S .0 . ’ , T57 ,* MEAN  S.O.*, 

9T72 , ’ME AN  S.O.*) 

FORMAT  <T4,F5.Q,T12,A4,T17,F3.Q,T23,F3.1,T28,F6.C,1X,F5.Q,T42,F6.QSHI1C23 
1,1X,F5.0,T56,F6.0,1X,F5.0,T7Q,F7.0,T78,F5.0,T85,F5.0,T92,F5.2,T99,SHI1024 
2F4.0,T 105, F3.0, Till, F3.0,T116,F5.2,T 123, F4.0,T  125, F3.0)  SHI  1025 

FORMAT  !I3,F1.Q,2!F3.Q)  ,3X,F1.0,5CF2. 0)  ,F1.Q,3!F.3.Q),A4,3IF2.Q))  SHI1026 

FORMAT  !1H-, T15, ’FRAME*, T47, ’FRAME’, T88, ’FRAME*)  SHI1027 

FORMAT  ( 12 ,8 (F3. 0) )  SHI1C28 

FORMAT  !1H-,T15,*PIER* ,T47 ,’F IEP* ,T88 ,* F IE  9* )  SH  1 1C  29 

FORMAT!*  INAOEQUATE  UTILITIES  FOR  SHIP*I4)  SHI1030 

0  FORMAT!*  NO  BERTHING  AVAILABLE  FOR  SHIP  *14)  SHI1C31 

FORMAT  ( 1HQ,T15,*LEAVING  THE  ASSIGNMENT  STAGE  *)  SHI1Q32 

FORMAT  ! 1HC,T50, ’LEAVING  THE  INITIALIZATION  STAGE*)  SHI1033 

FORMAT  !1H+,T21,*  CAROS  ARE  CUT  OF  ORDER.  *,  T52,  SHI1034 

1'  *  NUMBER  SHOULO  =  *,I4,T93,  SHI10345 

2  *  CARC  REA 0  WAS  *,I4)  SHI1035 

FORMAT  (1 H-,T5 ,*PCRT  CONTROL  LOG  FOR  DAY*, 15,*  CLARTER’ , 15, T 55 ,2 A8SH I1C3 6 
1/T10, ’STATE*, T22,* NUMBER  CF  SHI F S * ,/T 6 , ’NORM  A L  CFS  IN  * , T 3 0 , I  5 , / T 6 , SH 1 1 0 3 7 
2  *  I N  CCLO  IRON*  ,T30  ,I5,/T6  ,*NCRHAL  CPS  OUT  *  ,  T 3 C  ,  1 5  , /T 6 , *IN  0 VERH AL SH 1 1 C 3 8 
3L* ,T  30  ,15  ,/T6, ’EXTENCEO  OPS*,T3  0 ,15)  *HI 1 039 

FORMAT  ! 1H-,T44,*6*)  SHI1C4C 


FORMAT  !1H+ ,T15  ,* ILLEGAL  VALUE  FOR  HSH I P  !  * ,  14  ,  *  ,  )  *,A4 

1,*  CLASS  *  ,  F4 • 0 ) 

FORMAT  !1H-,T15, ’SHIP  *,I4,*  *,A4,*  *,F4.Q,*  CLASS 

1CCMING  IN  CN  WEEKLY  CYCLP  FCR*I4,*  DAYS  .ERROR* ) 

FORMAT  !1H-,T44, *4*) 


,*  *,F4.CSHI1C41 

SHI1C42 
*,F4.0,*  SH  1 1 043 
SHI1C44 
SHI1C45 
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1610 
1  6  2  G 

1620 
1640 
1 6  5  C 
1660 
16  7  C 

1660 

165  0 
1700 


CLASS 


FORMAT  C1H- ,T15 ,* SHIP  *,I4,*  *,A4,*  ♦,F4.C,* 

1GCING  CUT  ON  WEEKLY  CYCLE  FGR*I4,*  OAYS. ERROR*) 

FORMAT  (1H- ,T15 ,*SHIP  *  ,  1 4  ,  *  *,A4,*  *,F4.C,*  CLASS 

1GCING  CUT  IS  SUPPOSED  TO  SE  IK  S7RFAM.  HSHIF(J,4)=  11 
?,I4) 

FORMAT <1H-,T15 , *ST°EAM  MATRIX  IS  TOO  SHORT 
1AM  AND  STRENN  MA  TRICES* ) 


*,r4.0,*  SHI1C46 
SHI1G47 
*,F4.0,*  ^HI1048 

AND  M51  =  *  S  H  110485 
SFI1049 

FIX  C IM  FNS ION  OF  STRESH  1 1  05  0 
^H  1 1 0  5 1 


*,F4.0,* 


^611052 
SN  11053 
SHU  054 
Sh  I  a  0 5  5 


FORMAT  (1H-,T15, ’SHIP  *,I4,*  *,A4,*  *,F4.C,*  CLASS 

1WHICH  IS  SUPPOSEC  TO  RE  IN  STREAM,  IS  NOT  THERE*) 

FORMAT  (1H- ,  *  S  H  IP  *,I4,*  *,A4,*  *,F4.C,*  CLASS  *,F4.0,* 

1  H  A  c  ILLEGAL  STATE  AT  PIFR.  PROGRAM  HUG.  HSHIF  VALUES  ARE*,EI5) 

FORMAT  C*  WARNING . TENOER  *,I2,*  TOO  SMALL  TO  ACCCMCOATF  SHIP  SHIJC56 

1  *  ,  1 3 )  ’  SH  110565 

FORMAT  (1H-,T15,*SHIP*,I4,*  *,A4,*  *,F4.C,*  CLASS  *,F4. 

1  *  IS  ^UPFCSEO  TO  nF  NESTED.  PRCGPAM  CANNOT  FINC  THE*, 

2  *  NFSTFO  SHIP.  PROGRAM  PUG.*) 

FORMAT  (1H-,T15,*SHIP  *,I4,*  *,A4,*  *,F4.0,* 

1  *  SLFPOSFO  TO  BE  NESTED  TO  TENOER.  FRAME  *,I4, 

2  *  COES  NOT  SHOW  A  SHIP  NESTED.  PGM  BUG.*) 

FORMAT  (IX, 8H  SHIP  =  I3,16H  GIVEN  UTILITIES) 

FORMAT  flH+,28X, 10HPARTIALLY  > 

END 


CLASS*  ,F4. 0, 


^H  I  '057 

SH110575 

^  H  1 1  C  5  8 

SHI1059 

SHI1D595 

^  H 1 1 06  0 

SHI10E1 

SHI1062 

SHI10E3- 
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4052  SHIP  I N 


VARIABLES  SN 

TYPE 

RELCCA  TICN 

10204 

A 

REAL 

1  C  247 

10255 

ARRV 

REAL 

ARRAY 

1 C  2  4  4 

10243 

B  A 

REAL 

7466 

10246 

C 

REAL 

10164 

10151 

CTR1 

INTEGER 

1C  222 

10173 

OIST 

REAL 

1 G  2  0  1 

7 

FRAME 

RF  AL 

ARRAY 

COM1 

0 

1 

HF 

INTEGER 

COM  1 

13605 

10156 

I 

INTEGER 

1C  163 

2 

ICAYS 

INTEGER 

COM  1 

1C  216 

12061 

IOSTAT 

INTEGER 

ARRAY 

lciei 

10162 

IE 

INTEGER 

10214 

0 

IJ1 

INTEGER 

COM2 

1 

3 

IJ3 

INTEGER 

COM2 

4 

6 

I  J6 

INTEGER 

COM2 

7 

10 

IJ8 

INTEGER 

CCM2 

11 

10203 

I  J9A 

INTEGER 

10154 

10220 

ICVR 

INTFGER 

1 G  2 1  2 

23765 

IFORT 

INTEGER 

ARRAY 

10166 

10215 

IT 

INTEGER 

10217 

10211 

ITENOR 

INTEGER 

1  C  2  0  5 

23767 

IUNIT 

INTEGER 

AFPAY 

1  C  2  r  7 

10210 

121 

INTEGER 

2 

5 

I  4  J 

INTEGER 

COM2 

1C  167 

10230 

JX 

INTFGER 

1  C  23  1 

10213 

JZ1 

INTEGER 

1C  166 

10206 

‘  KD AY 

INTEGER 

1  0  2  36 

10245 

KH 

INTEGER 

1  G  2  5  4 

10227 

KZ 

INTEGER 

T 

4 

•  K  2 

INTEGER 

COM1 

1C  160 

10234 

L 

INTEGER 

1  G  16  7 

10221 

MP 

INTEGER 

1C  176 

10251 

Ml 

INTEGER 

1 C  2  5  2 

10253 

M  21 

INTEGER 

5 

10237 

M6 

integer 

6 

10240 

NA 

INTEGER 

1  C  2  4  2 

10235 

NFLAG 

INTPCER 

1 C  2  3  2 

10241 

NG 

INTEGER 

1C174 

11157 

NCOAYS 

integer 

ARRAY 

12 

10171 

NUMCI 

INTECFR 

10156 

10170 

NUMNI 

INTEGER 

1  C  17  2 

10233 

N 1 

INTEGER 

1C  224 

10223 

N  5 

INTEGER 

16311 

10175 

PR 

REAL 

irt53 

15621 

SHIP 

R  r  A  L 

ARRAY 

r  CM  1 

1C250 

10177 

ST ANDV 

REAL 

22  23  1 

24165 

STRFMN 

RF  AL 

A  FRAY 

COM1 

22  47  1 

10152 

U 

INTEGER 

1  C  2  2  5 

CDC  6E1G  F  T  N  V7  •C-P291  OFT  =  l  C4/27/72  17.47. *4.  F£GF 


AC 

real 

AS 

REAL 

elank 

real 

CTRL 

REAL 

CAY 

REAL 

CIST1 

REAL 

G 

INTFGER 

C  C  M  1 

PSHIP 

INTEGER 

APRAY 

COM 

IA 

INTEGER 

in  is 

INTEGER 

IOYLST 

INTEGER 

IF  1 

INTEGER 

IJ2 

INTEGER 

CCM2 

IJ  4 

INTEGER 

CCM? 

I J  7 

I  N  T  R  G  E  R 

CCM2 

IJ9 

INTEGER 

CCM? 

IOUT 

INTFGER 

IPOM 

INTFGER 

10 

integer 

ITENO 

INTEGER 

ITHDAY 

INTEGER 

IX 

INTEGER 

12  J 

IN  T  EGFR 

CC  M  2 

J 

INTEGER 

JY 

INTEGER 

K 

INTFGER 

KG 

INTEGER 

KM 

INTEGER 

K 1 

INTEGER 

CCM1 

K3 

INTECFR 

M 

INTECRR 

MEAN 

INTEGER 

M2 

INTEGER 

M51 

INTEGER 

CCM1 

K 

INTEGER 

CC  M  1 

ND 

INTEGER 

NFR 

INTEGER 

NMIOVR 

INTEGER 

NO 

INTEGER 

CCM? 

NUMEO 

INTEGER 

mjmno 

INTEGER 

N  2 

INTFGER 

FI  ER 

real 

ARRAY 

CCMl 

RST 

REAL 

ST 

REAL 

STREAM 

PEAL 

flCRfiY 

TN'JSTR 

REAL 

ARRAY 

>FRA  m E 

RF  f  L 

21 
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FACE 


VARIABLES 

SN  TYPE 

RELCCA  T I  ON 

10202  YFL 

REAL 

1 C  2  0  0 

YFL  P 

REAL 

10226  ZJ 

REAL 

FILE  NAMES 

M  GOF 

o  input 

FMT 

2022  OUTPUT 

n 

TAFE5 

2  C  2 2  TAFE6 

EXTERNALS 

TYFE 

APGS 

CIDST A 

1 

NORMAL 

4 

PLACE 

1 

FPTFR 

3 

PRTHS 

3 

FRTOTR 

4 

RANF 

REAL 

1 

TPONTF 

5 

INLINE 

FUNCT ICNS 

TYFE 

ARGS 

MCO 

INTEGER 

2  INTRIN 

STATEMENT  LAPELS 

0 

10 

G 

20 

0 

30 

4201 

40 

4246 

5C 

4300 

6C 

0 

70 

4320 

8  P 

4330 

90 

4343 

100 

4350 

11  ' 

0 

12  0 

0 

130 

4415 

1 4  C 

4416 

150 

4531 

160 

4534 

170 

4  544 

180 

4551 

1QQ 

4561 

2C  G 

4  6  G  7 

210 

4612 

220 

4635 

230 

4657 

240 

4672 

250 

4707 

26  L 

4714 

270 

4717 

2  6  0 

4741 

?c0 

4774 

300 

5007 

310 

5040 

72  ** 

50  62 

330 

5073 

340 

5140 

3  5  C 

5174 

360 

5216 

'370 

5240 

t  a  n 

5245 

3°  0 

5263 

400 

53  06 

410 

5317 

420 

5325 

470 

5331 

440 

5365 

45  0 

5371 

1  460 

5375 

470 

5401 

480 

0 

4  9  0 

5430 

5  C  0 

0 

510 

5457 

520 

5465 

530 

0 

540 

5501 

550 

5515 

560 

5550 

570 

5577 

580 

5621 

550 

5631 

600 

0 

610 

5663 

6  2  G 

57  0  0 

630 

5702 

640 

5747 

650 

0 

660 

6004 

670 

6011 

680 

0 

650 

6032 

700 

0 

710 

6053 

720 

6055 

730 

6100 

740 

6113 

750 

0 

760 

6134 

770 

6150 

780 

6173 

790 

6174 

POD 

6177 

010 

6220 

820 

6223 

a  3  G 

6226 

84  0 

6313 

850 

6317 

8  6  0 

6322 

870 

6344 

880 

6357 

890 

6361 

50  9 

6370 

910 

6410 

92  : 

0 

53  0 

6433 

940 

6435 

95  0 

6463 

560 

0 

970 

6501 

9  8  G 

6505 

59  0 

6522 

1000 

C 

1010 

6552 

1 C  2  0 

6602 

1030 

6617 

1040 

6646 

1 C  5  0 

6656 

1060 

6660 

1  P70 

6664 

1080 

6671 

1090 

6675 

11C0 

6714 

1110 

6717 

1120 

6721 

1 1 3  C 

6723 

1 1  4  C 

22 
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statement  laeels 


6733 

1150 

6745 

1160 

6753 

1180 

0 

1190 

7134 

1210 

7146 

1220 

7176 

1240 

0 

1250 

7247 

1270 

7275 

1280 

7321 

1300 

7324 

1310 

7350 

1330 

0 

1340 

7371 

1360 

7406 

1370 

0 

1390 

0 

1400 

7467 

1420 

FMT 

7473 

1430 

7507 

1450 

FMT 

7560 

1460 

7612 

1480 

FMT 

7617 

1490 

7627 

1510 

FMT 

7634 

1520 

7646 

1540 

FMT 

7654 

1550 

7715 

1570 

FMT 

7720 

1  c  8  0 

7745 

1600 

FMT  ' 

7750 

1610 

1  0002 

1630 

FMT 

10014 

1640 

10045 

1660 

FMT 

10055 

1670 

10113 

1690 

FMT 

10120 

1700 

COMMON  BLOCKS 
COM1 
COM2 

STATISTICS 

PROGRAM  LENGTH 
BUFFER  LENGTH 
COMMON  LENGTH 


FNGTH 

10517 

11 


17756E  8174 

4C44B  2  084 

2  4  4  4  0  E  10  528 


COC  6630  FTK 


17.47.04 


FACE 


23 


V3.0-F291  OP  T  =  1  04/27/72 


6747 

1170 

0 

1200 

7164 

1230 

7244 

1260 

7300 

1290 

7345 

1320 

0 

1350 

0 

1300 

7424 

1410 

FMT 

7502 

1440 

FMT 

FMT 

7603 

1470 

FMT 

FMT 

7622 

1500 

FMT 

FMT 

7641 

1530 

FMT 

FMT 

7666 

1 5  6  C 

FMT 

FMT 

7731 

1590 

FMT 

FMT 

7764 

1620 

FMT 

FMT 

100  30 

1650 

FMT 

FMT 

10074 

1680 

FMT 

F  MT 
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FA  G  E 


5 


10 


15 


20 


25 


31 


35 


40 


45 


50 


SUERCUTIN'F  °LflCc  J  J°A) 

PL  A 

1 

COMMtN  /CC81/  G,  MF,  KAYS,! 

<  1  * 

K2,H51,N,FRAME<350,17) 

» HSHIP (150 , 6) ,FIPLA 

2 

1ER  (25,8)  ,  SHIFtlS.,  22)  ,STREMM8  0,2) 

FI  £ 

3 

INTEGER  HSHIP,F,^F 

PL  £ 

4 

M6  =  0 

PL  £ 

5 

11  =  0 

P  L  £ 

6 

L1  =  0 

PL  £ 

7 

L2  =  0 

PL  £ 

8 

L3=  0  . 

PL  £ 

g 

L  4=  0 

PLA 

10 

N  3  1=  0 

PL  £ 

n 

N  3  2  =  0 

PLA 

12 

N  33=  C 

PLA 

13 

N3  4=fl 

PLA 

14 

N3  5=  0 

PLA 

15 

N  3  6=  C 

PLA 

16 

N  3  7=  C 

PLA 

17 

T1=A8CC(SHIP(N,2G)  ,1QC*> 

PLA 

1  8 

T2=5HIF<N,20)-T1 

PLA 

ig 

SHIP  ( N  ,2G> =T1 

PLA 

20 

IF  (ISAYS. LE. 2)  M6  =  l 

PLA 

21 

N2=SHIF  t N  9 16) 

PLA 

22 

IF  CSHIP(N,20) .EG. 15.)  GO 

TO 

470 

PLA 

23 

IF  CSHIP(N,20)  .EG. 20.)  GO 

TC 

470 

PLA 

24 

IF  (SHIP(N,20) .EG. 30.)  GO 

TC 

470 

PLA 

25 

IF  CSHIP(N,20) .EG. 31.)  GO 

TC 

470 

PLA 

26 

IF  ( SH  IP  (  N  *  2 0) .EG. 36.)  GO 

TC 

470 

PL  A 

27 

IF  ($HIP(N,20) .EG. 37.)  GO 

TC 

470 

PLA 

28 

IF  CSH IP ( N | 20) .EG. 38.)  GO 

TC 

470 

PLA 

2g 

IF  CSHIP(N,20)  .EG. 35.)  GO 

TC 

470 

PLA 

30 

10 

00  230  JI=1,K2 

PLA 

31 

J  5  =  J I 

PLA 

32 

IF  (FRAHE  (J5,l) .GT.l.)  GO 

TO 

200 

PLA 

33 

20 

IF  (SHIP(N,20) .EG. FRAME CJ5 

,5))  GC 

TO  30 

FLA 

34 

IF  (SHIPCN,20) .EG.FRAMEU5 

,6)  )  GC 

TO  30 

PLA 

35 

IF  (SHIPCN, 20)  .EQ. FRAHE (J5 

,7))  GC 

TO  30 

PLA 

36 

IF  (SHIPCN, 20) .EG. FRAME (J5 

,8))  GC 

TO  8  0 

PLA 

37 

IF  (SHIPCN, 20)  .EG. FRAHECJ5 

,5))  GC 

TO  80 

PLA 

38 

GC  TO  220 

PLA 

3g 

30 

IF  (Ii.FQ.O)  GO  TO  50 

PLA 

40 

IF  (FR/5MF  {  J5 , 1  0)  .EG.  1  •  )  GO 

TC 

100 

PLA 

41 

<40 

11=11+1 

PLA 

42 

IF  (I1.NE.N2)  GO  TO  230 

PL  A 

43 

N  5  =  J  5 

PLA 

44 

IF  (SHIP  r  N  ,  4  )  .  GT .Q.5.ANQ.T2.EC.0.) 

GO  TC  120 

PLA 

45 

I2=FRA  HF  (N5  f 17 ) 

PLA 

46 

CO  50  JG  =  1  ,N2 

PLA 

47 

A=FRAME(N5,2) -FRA HE (N5,ll) 

PLA 

<4  8 

IF  (fl.LT • g  hlF ( Nf 1 5) )  M6  =  l 

PLA 

4g 

e=FIEP(r2,?)+SHIP(N,15> 

PLA 

5  0 

IF  ( E . G  f . F  IFR ( 12  1 1 ) )  M  c  =  1 

PL  3 

51 

A=FRAMF  (N5 ,3)  -  FRAMMNS,  12  5 

PL  A 

5  2 

IF  (A.LT.SHIPCN, 14)) 

FL  3 

53 

E  =  F  1  F  R  (I?  ,4)+SHIP  { N  , 

FI  l 

5  4 

IF  (E.GT  PIER ( 12  f  3) )  , 

PLA 

55 

55 
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N5=N5-1 

PL  A 

56 

5  C 

CONTINUE 

PLA 

57 

IF  (M6.EG.1)  GO  TO  110 

PL  A 

58 

h  F  =  J  5 

PLA 

59 

60 

G  =  1 . 

PLA 

60 

IF  (IJ9A.NE.1)  GC  TO  60 

PL  A 

61 

NRITF  (6,890)  (SH I F ( N , J) , J=2 , 4) , J5 ,1 0 A YS 

PL  A 

62 

NRITF  (6,910) 

PLA 

6  3 

60 

CC  70  J  P- 1 , N2 

PL  A 

64 

65 

FRAMEU5,1)  =  2. 

PLA 

65 

FRAME  (J5, 11)=FPAME  (  J5,li>  +5H  I  F  ( N  ,  1 5) 

PLA 

66 

FRAME  (JP, 12)=FRAMF ( J5 , 1 2) +SHIF(N ,14) 

PLA 

67 

FRAMF ( J5 , 13) -SHIP (N, 1) 

PLA 

68 

FRAME(J5,14)=SHIP(N,2) 

PLA 

69 

70 

FRAME ( J5 1 15) -SHIP ( N  f  3 ) 

PLA 

70 

J5  =  J  5- 1 

PL  A 

71 

70 

CONTINUF 

PLA 

7? 

FIER (12,2) =PIER( 12,2) +SHIP  (N, 15) 

PLA 

73 

PIER  (I2,4)=PIER(I2,4)+SHIP  (N, 14) 

PLA 

74 

75 

IF  (SHIP(N,4).GT.0.5)  GO  TO  170 

PLA 

75 

GO  TO  870 

PLA 

76 

80 

IF  (Ll.NE.l)  GO  TO  230 

PLA 

77 

IF  (L4.NE.1)  GO  TO  230 

PLA 

78 

GC  TC  3n 

PLA 

79 

80 

50 

IF  (FRAME ( J5 , 1 0 1 • E C • 2 • )  GC  TC  ICC 

PLA 

80 

GC  TO  40 

PLA 

81 

100 

1 1  -  Q 

PLA 

82 

GC  TC  40 

PLA 

83 

no 

IF  (ICAYS.LE.2)  GO  TO  120 

PLA 

84 

85 

IF  (Ll.NE.l)  GO  TO  220 

PLA 

85 

IF  (SHIP(N,20) .EG . FR AME ( J 5 , 5) >  GO  TO  120 

PLA 

86 

IF  (L2.NE.1)  GO  TO  220 

PLA 

87 

120 

IF  (T2.LE.0.0)  GO  TO  140 

PLA 

88 

J8-J5-N2+1 

PLA 

89 

9Q 

CO  120  J6  =  J8 , J 5 

PLA 

90 

IF  (FRAME  (J6,3> .LT .SHIP (N , 14) )  GC  TO  220 

PLA 

91 

IF  (FRAME (J6, 2)  .LT.SHlF(N,15))  GC  TO  220 

FLA 

92 

130 

CONTINUE 

PLA 

93 

140 

H  F  =  J  5 

PL  A 

54 

95 

G=  4 . 

FLA 

95 

IF  (IJ9A.NE.1)  GC  TO  150 

FLA 

96 

Vi  RITE  (6,8  50)  ( SHI  P  (  N  ,  J )  ,  J- ?  ,  4)  ,  J5 , 1 OA  YS 

PLA 

97 

NRITE  (6,920) 

PL  A 

98 

150 

CC  160  J8=1,N2 

FLA 

c  a 

100 

FRAME ( J5, 1 ) =2 . 

PLA 

110 

FRAME (J5, 13)=SHIP(N,1) 

cL  .5 

191 

FRAME (J5, 14)=SHIP(N,2) 

PL  fl 

102 

FRAME ( J5, 15) =SHIP (N,3) 

PLA 

103 

J5  =  J  5  -  1 

FLA 

1C4 

105 

160 

CC  NT INUE 

PL  A 

105 

IF  (SHIP(N,4) .LT.0.5)  GO  TC  870 

FLA 

106 

170 

CC  180  J8=1,K? 

PLA 

107 

IF  (FRAME  ( J 8 , 1 )  .NE.4,0)  GC  TC  18C 

PLA 

108 

FRAME ( J8, 1)=?. 0 

PLA 

139 

110 

IF  (FR AME ( J8,13)  ,FQ. 0.0)  FRAME(Jp,l)=1.3 

PLA 

110 

FACE  2 
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F  A  Cc 


3 


115 


120 


125 


120 


135 


140 


14  5 


150 


155 


160 


165 


1 8  C  CCNTINLF 

IF  (T2.Gp.10C.)  GO  TO  87T 
HSHIF (K,6)=6 
J5  =  H  F 

CO  190  JB=1,N2 
FRAME(J5,1)=2. 

FRAME <J5,2)=SHIP<N,1°) 

FR  A  M  F  (  J5  , 3) -SHIP C  N  ,  1  P  ) 

1 9  C  J  5  =  J5- 1 

GC  TC  870 

C  ***FRA MECX, 1)  =  4  IS  RESERVEC  FCR  TENOER  *  * 

20  0  IF  (SHIP (N,4> . LT.0.5)  GO  TC  220 

IF  (FRAME  (J5,l)  .KE.4.0)  GC  TC  22C 
M31=J5-SHIF  <N,  16)4-1 
IF  (M31.LE.0)  GO  TO  220 
OO  210  JLR=M31,J5 

IF  (  F  R  AMF (  J  L  R  , 13) .NE.0.0)  GC  TC  220 
210  CCNTINUE 
GC  TC  20 
220  11=0 

IF  (ICAYS.GT.2)  M6  =  0 
23  C  CCKTINUE 

IF  (Ll.NE.l)  GC  TO  430 

IF  (Ll.NE.l)  GC  TC  460 

IF  (L2«NE«1)  GC  TO  440 

IF  (L3.NE.1)  GO  TO  450 

IF  CSHIPCN  ,17)  .EO.  0.  )  GO  TC  <<00 
240  OC  390  JK=1,K2 
J  8  =  JK 

IF  (FRAME(J8,1> .NE.2.)  GO  TC  290 
IF  (FRAME {08)4) • IT  *  1 • )  GO  TC  290 
**FR*HE(J6,16)+1. 

IF  CA.GT.FRAMF(J6,4) )  GO  TC  3  PC 
J9=F  R  A  MF ( J  8 , 13) 

IF  (J9.EQ.0)  GC  TO  390 
J7=HSHIP< JR, 1) 

IF  CSHIPCN, 16)  .GT.SHIFCJ7, 16) )  GC  TO  380 
IF  CSHIPCN, 20)  .NE. FRAME CJ6, 5) )  GC  TO  300 
250  11=11+1 

IF  CI1.NE.N2)  GO  TO  370 
CC  =  J  8 

IF  ICO.NE.PSHIF C J9,5) )  GC  TC  290 

IF  CSHIPCN, 4) .GT .0.5.AKO.T2.EC.C.C)  GC  TC  32C 

I2=FRANF(J8,17) 

K  5  =  J8 

CC  26  0  K T  = 1 , N 2 
A=FRAHE(N5,2)-FRAMF(N5,11) 

IF  C .LT. SHIFCN, 15) )  ME  =  l 
E=FIERCI2,2) 4SHIPCN,15> 

IF  CF.GT  •  P  IER  1 12 , 1 ) )  M6=l 
A=FRAME(N5,3)-FRAMF(K5,12> 

IF  (A.LT.SHIF(N,14>)  M6=l 
6=FIERCI2,4) 4SHIPCN,14) 

IF  CR . GT • P IER (12,3))  M6=l 
K5  =  N  5-  1 


PL  A  111 
FLA  112 
FLO  113 
FLA  114 
PLP  119 
F  L  £  116 
PLfl  117 
PL  A  118 
FLA  119 
PL  A  12  0 
PLA  121 
PLA  122 
PLA  123 
PLA  124 
FLA  125 
PLA  126 
FLA  127 
PLA  128 
PLA  129 
PLA  120 
PLA  131 
PLA  122 
FLA  133 
PLA  134 
PLA  135 
PLA  136 
PLA  137 
PLA  138 
PLA  139 
PLA  140 
PLA  141 
PLA  142 
PLA  143 
PLA  144 
FLA  145 
PLA  146 
FLA  147 
FLA  148 
FLA  149 
PLA  150 
FLA  151 
PLA  152 
FLA  153 
PLA  154 
PLA  155 
PLA  156 
FLA  157 
FLA  158 
FLA  lc° 
FLA  IE  0 
FLA  161 
PLA  162 
FLA  163 
PLA  164 
FLA  165 
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170 


175 


180 


185 


190 


195 


200 


205 


210 


215 


26f 


2  7  C 


2  80 


290 


20C 


210 


22C 


230 

340 


250 


200 


2  7  C 
280 
2  9  C 


4QC 
41  C 


CCNTIMF 

IF  (ME  .rQ. 1)  CO  TC  310 


HF=JP 


G  =  5 . 

IF  (IJCfl.NF.l)  GC  TO  270 

W R  IT  F  (6, 9  GO)  (9hIP(N,J),J=2,4>,J8,inaY* 
WRITE  (6,910) 

CC  280  JI=1,N2 

FRANF  U8,  ll)  =  FRA  ME  (J«,  11)  ^HIF  (N  ,15) 
FRAMF(J8,12)=FRAME(J8,12>+5HIF(N,14) 

FRA KE  (J6,16)=FRAME(J8*16) ♦ 1 ■ 

IF  (SHIP ( N  ,4) . GT  .  0 .5)  FR  A  M  F ( J  8  ,  1  ) -3. 

J  8  =  Jfi -  1 
CCNTINLF 

FIER(I2,2)=PIER(I2,2)+SHIF(K,15) 

FIER  (12,4 )=PIER( 12,4) ♦SHTF  (K, 14) 

GC  TC  870 
11=11-1 
GC  TC  370 

IF  (SHIP(N,20) .EG*FRAME(J8,6))  GC  TO  250 

IF  (SHIP(N,20) .EO.FRAME(J8,7))  GC  TO  250 

IF  (SHIP(N,20) •EQ*FRAME(J8,8))  GO  TO  250 

IF  (SHIP(N,20) .EQ.FRAME(J8,9) )  GC  TO  250 

GC  TC  380 

IF  (IOAYS.LE.2)  GC  TO  320 
IF  (L6  .EQ  .  1)  GO  TO  320 


11  =  0 

IF  ( I  CAYS  .  GT . 2 )  M6  =  0 
GC  TC  390 

IF  (T 2  .LE.0.0)  GC  TO  340 
J5  =  J  8  - N2+ 1 
CC  330  J6=J5,J8 

IF  (FRAME (J6,3) •  LT .SHIP ( N , 14 ) )  GC  TO  38Q 
IF  (FRAME  ( J6, 2 ) . IT .SHIF (N  ,  15) )  GC  TO  38C 
CONTINUE 
HF=J8 

IF  (IvJ°A.NF.l)  GC  TO  350 

WRITE  (6,900)  (SHIP(N, J) , J=2 ,4) , J8,I0AYS 
WRITE  (6,920) 


G  =  7 . 


CC  360  JI=1,N2 

FRAME (Jfl, 16)=FR APE (J 8,16)  *1 . 

IF  (SHIP (N,4) .GT. 0.5)  FRAM*(J8,1)=3. 

J  8  =  J  8  -  1 
CCNTINUF 
GC  TC  870 

IF  (FRAME  ( J8 ,1 0)  .NE. 2 . )  GC  TC  **91 
11  =  0 

CONTINUE 

IF  (L6.FQ.1)  GC  TC  400 


L  6=  1 

GC  TC  240 

IF  (IJ5A.NE.1)  GC  TO  413 

WRITE  (6,880)  (Sh I F ( N , J >  ,  J  =  5  ,  4 ) 

M51=M51+1 


FLA 

16  6 

PL  A 

167 

PL  A 

1C  ^ 

FLA 

160 

FLA 

17  P 

CL  A 

171 

c  L  A 

172 

PL  A 

173 

FLA 

1  7  4 

FL  A 

175 

CL  A 

176 

PL  A 

177 

PL  A 

178 

PL  A 

179 

Pt  A 

1B0 

PL  A 

181 

PL  A 

182 

PL  A 

183 

PL  A 

184 

PL  A 

185 

PL  A 

186 

PL  A 

187 

PL  A 

188 

PL  A 

189 

PL  A 

19  0 

PL  A 

191 

PL  A 

15  2 

PL  A 

153 

PL  A 

154 

FLA 

155 

PL  A 

196 

FL  A 

197 

PL  A 

198 

FLA 

1  9  0 

PL  A 

2  C  0 

PL  A 

231 

PL  fi 

20? 

FLA 

2  C  3 

PL  A 

204 

PL  A 

2  0  5 

PL  A 

206 

c  L  A 

2  C  7 

PL  A 

20« 

FLA 

2  C  9 

FLA 

210 

FLA 

21  1 

PL  A 

212 

FL  A 

213 

PL  A 

214 

FL  A 

215 

PL  A 

216 

CL  A 

217 

FLO 

219 

FLA 

2  19 

CL  A 

2  2  0 

F  AG^  4 


220 
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FAGF 


5 


225 


230 


235 


240 


245 


250 


255 


260 


265 


270 


275 


420 

430 

440 

450 

460 

47  0 

400 

490 


:  0  0 


5 1  C 


STREWN (M51  ,i)=N 

PLA  221 

STREFN (M51 ,2)=SHIP (N,20)+T2 

Flfl  222 

6=11. 

PLA  223 

F  F=  0  • 

FLA  224 

IF  (SHIP(N,4).LT.0.5)  GO  TC  870 

PLA  225 

CC  420  I X  =  1 ,  K  2 

PLA  226 

IF  (SHIP(K,2Q).EG.FRAME(I>,5)  .  A N C  .  FRA  ME  ( IX  ,  1 )  .FE.3.0) 

FRAME(IX,1)=PLA  227 

14.0 

PLA  228 

C  CM  IN  IF 

PLA  229 

IF  (FSHIP(N,6)  •  EQ  •  6)  HSHIF(K,6T=2 

PLA  230 

GC  TC  870 

PLA  231 

11  =  0 

PLA  232 

IF  (I0AYS.GT.2)  M6=0 

PLA  233 

Ll  =  l 

PLA  234 

GO  TO  10 

PLA  235 

11=0 

PLA  236 

IF  (I0AYS.GT.2)  M6=0 

PLA  237 

L  2  =  1 

PLA  238 

GO  TO  10 

PLA  239 

11=0 

FLA  240 

IF  (I0AYS.GT.2)  M6=0 

PLA  241 

L3  =  l 

PLA  242 

GO  TC  10 

PLA  243 

14=1 

PLA  244 

IF  (ICAYS.GT.2)  M6=0 

PLA  245 

GO  TC  10 

PLA  246 

DO  620  J8=1,K2 

PLA  247 

IF  (FRAME (J0,1) • N E • 1 . )  GO  TC  610 

PLA  248 

IF  (N31.E0.1)  GO  TO  580 

PLA  249 

IF  (SHIP(N,20) .NE.FRAME(J8,5))  GC  TO  610 

PLA  250 

11=11+1 

PLA  251 

IF  (Ii.NE.K2)  GO  TO  600 

PLA  252 

IF  (IOAYS.LT. 3)  GO  TO  530 

PLA  253 

IF  (K31.EQ.1)  GO  TO  530 

FLA  25% 

N  5  =  J  8 

PLA  255 

I2=FRAMF(N5,17> 

PLA  256 

CO  500  N3=1,N2 

PLA  257 

A=FRAWE(N5,11)+SHIP(N,15) 

PLA  258 

IF  <A.GT.FRAWE(N5,2) )  M6=l 

PLA  259 

A=FRAME(N5,12)+SHIP(N,14) 

PLA  260 

IF  ( A .GT. FRAME  (N5 ,3) )  M6=l 

PLA  261 

N  5  =  N  5 - 1 

PLA  262 

CONTINUE 

PLA  263 

A=PIER (I2,2)+SHIP(N,15) 

PLA  264 

IF  ( A • GT • P IER ( 12  > 1 ) )  M6  =  l 

PLA  265 

A=FIER(I2,4)+SHIF(N,14) 

PLA  266 

IF  ( A • GT • P IER (12,3))  M6=l 

FLA  267 

IF  (M6.NE.0)  GC  TO  610 

PLA  268 

F  F= J8 

PLA  269 

IF  (IJ9A.NE.1)  GO  TO  510 

PLA  270 

WRITE  (6,890)  (S H I P ( N , J) , J  =  2  ,  4)  , J 8 , 1 0  A YS 

PLA  271 

WRITE  (6,910) 

PLA  272 

G  =  1 . 

PLA  273 

PI6R (12,2) =PIER( 12,2) +SHIF (K, 15) 

PLA  274 

FIER (I2,4)  =  PIEP (I2,4>+SHIP  (N ,14) 

PLA  275 
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F  A 


280 


285 


290 


295 


300 


305 


310 


315 


320 


325 


N5=w8 

PL  A 

27* 

OG  520  N  3  =  1 »  N  2 

PI  A 

27  7 

FRAME(N5,ll)=FRAMF(N6,ll)*CHIF(N,<c> 

PL  A 

r/n 

FRAME(N5,12)=FRAME(N5,1?>*CHIF(N,14> 

PL  A 

2  70 

FRAME (N5,l)=2. 

PLA 

2 » n 

IF  (SUP  (N  ,4)  .GT  .0 .5)  F 9 A v * { *  5  ,  1> -  “  . 

FLA 

2  e  1 

IF  ISHIP(N,4) .GT.0.6.ANO.T2.LT.1E-2P) 

H  S  m  I  F  (  N  ,  f  )  =  r 

PI  A 

2«2 

FRAME(N5,l2>=SHlP(h,l> 

FLO 

2*  7 

FRAME(N5,14)=SHIP(M,?) 

PL  A 

2  3  *♦ 

FRAME  ( N  5  ,  1 5) =SH I F  (  N  ,  ** ) 

FLA 

28* 

N5=N5-1 

PL  0 

286 

520 

CONTINUE 

PL  A 

28  7 

53  fl 

GC  TO  870 

PL  0 

238 

IF  (T2.LE.0.8)  GC  TO  5C0 

PL  0 

299 

J5  =  J  8-N2  + 1 

PLA 

290 

CO  540  J6=J5,J8 

PL  A 

29  1 

IF  (FRAME(J6,3).LT.SPIF(N,14> >  C-C  t q 

*1  : 

PLA 

292 

IF  (FRAME(J6,2)  .LT.SHIF  (N,16>  >  C-C  TO 

51'' 

FLA 

2  5  3 

540 

CCNTINUE 

PLA 

294 

550 

FF  =  J8 

PLA 

295 

C  =  4  . 

FLA 

296 

IF  (IJ9A.NE.1)  GC  TO  560 

PLA 

29  7 

WRITE  (6,893)  ( S F I F  (  N t J )  ,  J =2 , 4 )  , J «  ,  I Q H Y c 

PL  A 

25  8 

WRITE  (6,920) 

PLA 

29  9 

56  G 

S  5  =  JR 

PLA 

300 

CO  570  N3=1,N2 

PL  A 

301 

FRAME  (N5,l)=2. 

PLA 

302 

IF  ($HIP(N  ,4  )  .GT  .0 .5)  F R A W 5 ( N 5 ,  1  )  = 2 . 

PLA 

20  3 

IF  (SHIP(N,4).GT  .0.5.AKD.T2.LT, IE-2  0) 

H^HIF  (N  ,6  )  =6 

PL  A 

304 

FRAME  (N5,13)=ShIP  (N, 1) 

PL  A 

305 

FRAME ( N  5 , 14)=SHIP (N, 2) 

PLA 

306 

FRAME (N5, 15) =SHIP (N,  3) 

PLA 

307 

N5=N5-1 

PLA 

308 

570 

CC  NT INUF 

PL  A 

209 

GC  TC  870 

PLA 

310 

5  8  G 

IF  (N33.NE.1)  GO  TO  eaC 

PL  A 

311 

IF  (N35.N5.1)  GO  T D  4*C 

PLA 

312 

5  90 

IF  (SHIP(N,20) .NE.FPA^F ( J  8 , 6) )  GC  TP 

61? 

PL  A 

313 

11=11+1 

PLA 

314 

IF  (Ii.NF.N2)  GO  TO  ECC 

PLA 

315 

IF  (ICAYS.LT. 3)  GO  TC  53C 

PLA 

316 

IF  (N33.EC.1)  GO  TC  C3T 

PLA 

2  17 

GO  TO  ^ 9 P 

PL  A 

218 

ecc 

IF  (FRAME (JR, 10) .HE*  ?• )  G C  TC  620 

PLA 

319 

610 

11  =  0 

PLA 

320 

IF  (IOAYS.GT ,2) 

PLA 

321 

620 

CCNT INUF 

PLA 

322 

11  =  0 

FLA 

323 

IF  (N31.NE.1)  GO  TC  R  1  C 

PL  A 

324 

IF  (N33.NE.1)  GO  T r  «2C 

PLA 

325 

IF  (N35.NF  .1)  GP  Tr  «3c 

PLA 

326 

N  3  7  =  1 

PLA 

227 

6  3  C 

CG  8  G  C  J8  =  1 , <2 

PL  A 

22  8 

IF  (FRAME  (J8,l) .NE.?. )  GO  TC  7°C 

PL  0 

329 

IF  (FRA  ME (JR, 4). EC. n.)  GO  TC  7°0 

FLA 

330 

330 
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F  A  C*  6 


7 


335 


3%  0 


345 


350 


355 


360 


365 


370 


375 


380 


385 


IF  (FRAME  <J8,1€)  .EG.  FRAME  (  J?,  4)  )  C-C  TO  750 
IF  (N32.EQ.1)  GO  TO  750 

64G  IF  (SHIPCN, 20)  .NE.  FRAME(J8,5)  )  GC  TO  790 
11=11*1 

IF  (I1.NE.N2)  GO  TO  780 
N5=FRA MEC J8, 13) 

IF  C  FRAME ( J9 , 1 3)  .EQ,C.)  GC  TC  79C 
N 6=H  SH IP ( N  5 , 1 ) 

IF  CSHIPCN6,16) .LT.SHIF <N,16> >  GO  TO  790 
J9=HSHIP(N5,5) 

IF  (J8.EC.J9)  GO  TO  65C 
11=11-1 
GC  TC  800 

650  IF  CIOHYS.LT .3)  GO  TC  700 
IF  (N32.EQ.1)  GO  TO  700 
660  N  5= J  8 

I2=FRAME CN5, 17) 

CC  670  N3=1,N2 
A=FRAMECN5,ii) *SHIPCN,15) 

IF  CA.GT. FRAMECN5,2) )  M6  =  l 
A=FRAME(N5,12> +SHIPCN, 14) 

IF  (A . GT. FRAME <N5,3) >  M6=l 
N5=N  5- 1 

670  CONTINUE 

A=PIER  (I2,2)*SHIPCN,15) 

IF  Cfl  .GT.PIERCI2,1)  )  H6  =  1 
A=P  IE  R  (I2,4)*SHIP(N,14v 
IF  (A*GT*PIER(I2,3) )  M6  =  l 
IF  (M6.NE.0)  GO  TO  790 
F  F  =  Jfl 
G  =  5 . 

IF  CIJCA.NE.il  GC  TO  680 

WRITE  (6,  9001  (SHIPCN,  J)  ,  J  =  2,4)  ,o8,IOAYS 
WRITE  (6,910) 

680  PIER C 12, 2) =PIER(I2,2) *bnl  (N,  15) 

PIER (I2,4)=PIER( 12,4) *SHI^  (N,14) 

N  5= J  8 

OC  650  N  3  =  1 ,  N  2 

FRAME (N5,11)=FRAME  (N5,ll)  * SHIPCN, 15) 

FRAME  C  N  5 , 12) =FRA  ME (N5, 12) *SH IF (N , 14) 

FRAME  C N5 » IF) =  F  R A  ME (N5, 16)  *  1  • 

IF  C SHIPCN, 4) *GT .0.5)  FRAME(N5,1)=3. 

N  5  =  N5- 1 

690  CONTINUE 
GO  TC  870 

700  IF  (T2.UE.0.0)  GC  TO  720 
J  5  =  J  8- N  2+ 1 
CO  710  J6=J5,J8 

IF  (FRAME ( J6 , 3 )  .UT .  SHI  F (N  ,  14)  )  GC  TO  790 
IF  (FRAME (J6, 2) .LT.SHIF  (N,  15) )  GC  TO  790 
710  CCNTINUF 
720  H  F  =  J  8 

G=7. 

IF  (IJ9A.NF.1)  GC  TO  730 

WRITE  (6 , 9  C  0 )  (SHIPCN, J),J  =  2, 4)  ,J8,IDAYS 


PLA  321 
PL  A  332 
P U  A  333 
P U  A  234 
PLA  225 
FUA  336 
FUA  337 
P U  A  338 
FUA  329 
PUA  240 
PU  A  241 
PUA  242 
PUA  243 
FUA  244 
PUA  245 
PLA  246 
PLA  247 
PLA  248 
PLA  249 
PLA  250 
PLA  351 
PLA  252 
PLA  353 
PLA  354 
PLA  355 
FLA  356 
PLA  357 
PLA  358 
PLA  359 
FLA  360 
PLA  361 
PLA  362 
PLA  363 
PLA  364 
PLA  265 
PLA  366 
PLA  367 
PLA  2.6  8 
PLA  269 
PLA  270 
PLA  371 
PLA  272 
PLA  273 
PLA  374 
PLA  275 
FLA  376 
PLA  277 
PLA  278 
PL  C  279 
FLA  280 
PLA  381 
PLA  382 
FLA  383 
PLA  ->84 
PLA  385 
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SU9R0UTINF  PLACE 


cnc  6  6  9  0  FT  K  \rf2.Q-P29i  OPT=l  04/27/72  17.t7.p6 


FACE 


a 


39  Q 


395 


<♦00 


405 


410 


415 


420 


425 


430 


435 


4  4  Q 


WRITE  (6,920) 

73C  K5  =  J0 

CC  74  3  N 3  =  1  ,  N2 

FRAHE(K5,i6)  =  FRAHE(NS,i6)M. 

IF  (SHIP(N,4) •GT.C.5)  FRA H F ( K 5 , 1 > =3 . 

K5=N5- 1 

7  4  C  CCNTINLF 

GC  rc  070 

7  5  C  IF  (K34.NF.1)  GO  TO  76C 
IF  (K36.NE.1)  GO  TO  64G 

7  6  C  IF  ($HIPfh,20)  .NE.FRAPF(J^,6)  )  GC  TO  790 

I 1 — 1 1  ♦  1 

IF  (Ii.NE.K2)  GO  TO  780 
K5  =  FR  A  KF ( J  0 ,  13) 

IF  (FRANE ( J8,13)  .FO.  0.)  GC  TC  79C 
K6=HSHIP(N5,1) 

IF  (SHIP(N6,16).LT.SHIF(N,16) )  GC  TO  790 
K6=H^HIP(N5,5) 

IF  (J8.E0.N6)  GO  TO  770 

11=11-1 

GC  TC  800 

770  IF  (ICAYS.LT.3)  GO  TO  700 
IF  (N34.E0.1)  GO  TO  700 
CC  TC  660 

780  IF  (FR AHE ( J0, 10)  . NE. 2  .  )  GC  TC  900 
790  11=0 

COO  CCNTINIE 

IF  (K32.NE.1)  GO  TO  040 

IF  (K34.NE.il  GO  TO  850 

IF  (K36.NE.1)  GO  TO  060 

IF  ( I C  A  YS  •  GT • 2 )  M6=0 
GC  TC  10 
81C  K  3 1=  1 

GC  TC  630 
0  2  C  K  3  2  =  1 

IF  (I0AYS.GT.2)  H6  =  Q 
GC  TC  630 

8  3  C  N  3  5  =  1 

IF  (ICAYS.GT.2)  H6=0 
GC  TC  630 
040  K 3  2= 1 

IF  (I0AYS.GT.2)  M6=0 
GC  TC  470 
850  N34= 1 

IF  (ICAYS.GT.2)  M6=0 
GC  TC  470 
0  6  C  K  36  =  1 

IF  (IOAYS.GT  .2)  N6  =  Q 
GC  TC  470 

e7  0  SHIF (K , 2  0 ) =SHIF(K,2C) M2 

RETURN 
C 

8  8  C  FCRPAT  (1X,11H  SHIP  K  AHF  ,A4,ch  SEC.NC.  ,F2.C,9H  CLA^c 
1  IK  STRFflM) 

e9C  FCRMAT  (1X,11H  SHIP  K  A  H  E  ,A4,9H  SEC.NC.  ,F2.C,9H  CLASS 


PL  A  7  ?  6 
FLA  1 9 7 
PLA  399 
PLA  399 
FLA  290 
FLA  291 
FLA  292 
PLA  393 
FLA  394 
FLA  395 
FLA  296 
PLA  397 
PLA  298 
PLA  399 
PLA  430 
PLA  4  G 1 
PLA  4G  2 
PLA  403 
PLA  404 
PLA  405 
PLA  4  C  6 
PLA  407 
PLA  408 
PLA  4  Q  9 
PLA  410 
PLA  411 
PLA  412 
PLA  413 
PLA  414 
PLA  415 
PLA  416 
PLA  417 
PLA  418 
PLA  419 
PLA  420 
PLA  421 
PLA  422 
PLA  423 
PLA  424 
PLA  425 
PLA  426 
PLA  427 
PLA  428 
PLA  429 
PLA  430 
PLA  431 
PLA  432 
PLA  433 
PLA  434 
PLA  435 
PLA  436 
PLA  437 
,F3.Q,10HPLA  438 
FLA  479 
,F3.G,15FFLA  440 
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SLPRCUTINC  FLPCF 


“3  C  EEOC  FTh  12.C-F291  rFT  =  l  C4/Z7/7? 


17,^7.3** 


c  AGE 


9 


4  4  5 


1  ic  TK  F  oat'E  =  ,I7,5H  FOP  ,I2,lH  CAYS) 
c  c  C  FCFHAT  ( 1 X  j 1 1 H  SHIC  Mf*F  ,A4,9H  SEC. NO.  ,F".CfEH  CLA^S 
1  IS  HESTPP  IK  F9A«p  =  ,I'7,CH  FOR  ,I3*5H  PAYS) 

c  l  C  FCRHAT  C1Y,14H  HAS  UTIlITIcc) 
c  2  C  FCPHflj  (IX  *  ?4H  POTS  NOT  HAVE  LTItITIES) 

EKE 


PI  A  44  1 
,F3.*:  ,5cHFLP  442 
FLA  443 
F  L  C  444 
PL  5  44  5 
FLA  4  4  F - 
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FAGF 


1  0 


SUBROUTINE  FLACE  COC  5  5  0  G  F  T  N  Y3.0-F291  OPT  =  l  04/27/7  2  17.47.04. 

’  SYMBOLIC  REFERENCE  MAF 

ENTRY  POINTS 
2  PLACE 


VARIABLES  5N  TYPE  RFLCC A T I  ON 


2154 

A 

REAL 

2  155 

P 

REAL 

21 1  5 

CC 

RFAL 

7 

FRAME 

REAL 

ARRAY 

CC  M  1 

0 

G 

INTEGER 

COM1 

1 

HF 

INTEGER 

CCM1 

13505 

HS  HIP 

INTEGER 

ARRAY 

COM  1 

o 

IDAYS 

INTEGER 

CCM1 

0 

IJ9A 

INTEGER 

F.P. 

2170 

IX 

INTEGER 

2130 

11 

INTEGER 

2152 

12 

INTEGER 

2156 

J 

INTFGER 

2147 

JI 

INTEGER 

2162 

JK 

INTEGER 

2  161 

JLR 

INTEGER 

2150 

J  5 

INTEGER 

2153 

J6 

INTEGER 

21E4 

J7 

INTEGER 

2157 

J8 

INTEGER 

2163 

J9 

INTEGER 

2  16  E 

KT 

INTEGER 

3 

K  1 

INTEGER 

COM1 

4 

K2 

INTEGER 

CC  M  1 

2131 

LI 

INTEGER 

2132 

L2 

INTEGER 

2133 

L  3 

INTEGER 

2134 

L4 

INTEGER 

2167 

L  6 

INTEGER 

2160 

M31 

INTEGER 

5 

M  5 1 

INTEGER 

COM  1 

2  127 

M6 

INTEGER 

6 

N 

INTEGER 

COM  1 

2  1  4  E 

N2 

INTEGER 

2171 

N  3 

INTFGER 

2135 

N31 

INTEGER 

2136 

N  32 

INTEGER 

2137 

N33 

INTEGER 

2141 

N  34 

INTFGER 

2141 

N3  5 

INTEGER 

2142 

N  3  6 

INTEGER 

214-* 

N37 

INTFGER 

2151 

N  5 

INTEGER 

2172 

N6 

INTEGER 

15311 

PI  EP 

REAL 

array 

COM  1 

15E21 

SHIP 

REAL 

APRAY 

CCM1 

24165 

STREWN 

REAL 

ARRAY 

CONI 

2144 

T 1 

REAL 

2145 

T  2 

REAL 

FILE  NAMES 

MCOF 

TAPE6 

FNT 

INLINE 

FUNCTIONS 

TYPE 

ARGS 

ANCO 

RFAL 

2  INTRIN 

STATEMENT  LABELS 

71 

10 

76 

20 

122 

3  C 

130 

40 

0 

50 

227 

EO 

0 

7  0 

257 

n  o 

265 

90 

271 

100 

273 

110 

310 

120 

0 

130 

326 

140 

355 

150 

0 

160 

372 

170 

4  G  4 

180 

0 

190 

424 

2  C  C 

0 

21  0 

450 

220 

4  c  4 

230 

476 

240 

526 

250 

0 

2E1 

631 

270 

0 

2  8  0 

655 

290 

5  5  7 

300 

E77 

310 

712 

320 

0 

33: 

730 

340 

755 

350 

0 

35  0 

773 

370 

777 

380 

1 C  0  0 

39  0 

1007 

400 

1025 

4  1  Q 

c. 

42  0 

1057 

430 

1065 

4  4  G 

10  73 

4  5  0 
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SUBROUTINE  F  L  ACE 


STATEMENT  LAPELS 


1101 

4  EO 

110  7 

47  ' 

1134 

490 

0 

500 

0 

520 

1 2  E  4 

531 

1302 

550 

1331 

6  E  0 

1360 

50  0 

1 3  E  6 

590 

14  07 

610 

14  1  1 

E  2  0 

1446 

E  4  0 

1474 

650 

0 

670 

1571 

6  B  0 

1 E 17 

700 

0 

710 

1 E  64 

730 

0 

7  4  0 

1710 

7  E  0 

1736 

770 

1750 

790 

1751 

800 

1773 

820 

20  01 

820 

2015 

350 

2023 

8  E  0 

2C35 

880 

FHT 

20  45 

890 

2073 

910 

FMT 

20  77 

Q  2  0 

COMMON 

BLOCKS 

LENGTH 

COM1 

10  5  17 

STATISTICS 

PROGRAM  LENGTH  22C4B  1156 

COMMON  LENGTH  24425P  10517 


COC  EEOC  FIN  V3.G-P291  OPT  =  l  04/27/72  17. <<7.04. 


FACE 


1117 

4  8  0 

1222 

510 

0 

540 

0 

570 

1  4  Q  3 

600 

1430 

E30 

1502 

€  E  0 

0 

E  9  0 

1635 

720 

1702 

7*0 

1744 

78  p 

1771 

em 

20  07 

840 

20  31 

870 

2  0  E  0 

90(1 

F  MT 


11 
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SUBROUTINE  NORMAL 


COC  6  6  0  C  FTN  V3.C-F291  OPT  =  l  04/27/72  17.47.34 


PAGE 


1 


SUER CU TIKE  NORMAL  (OIST  »  MEAN ,  CT  ANCV,RST ) 

LUT 

1 

AA  =  0  • 

LUT 

? 

00  20  1-1,12 

LUT 

3 

Y  YL=R  A  N F  <  R  ST ) 

LUT 

4 

AA=AA+ YYL 

LUT 

5 

AA=AA-E. 

LUT 

6 

DIST=STANQV*AA+MEAN 

LUT 

7 

IF  CCIST.LT. 0.)  GO  TC  10 

LUT 

a 

RETURN 

LUT 

q 

ENC  . 

LUT 

1  0 

A-37 


SUBROUTINE  hCEHAL 


SYMBOLIC  REFERENCE  MAP 

ENTRY  POINTS 
2  NORMAL 

VARIABLES  SN  TYFE  RELOCATION 


44  AA 

45  I 

0  RST 

46  YYL 

REAL  0 
INTEGER  0 
RFAL  F.P.  <3 
REAL 

EXTERNALS 

RANF 

TYFE  ARGS 

Rr  AL  1 

STATEMENT  LABELS 
14  10 

0  20  - 

STATISTICS 

FROGRAP  LENGTH 

57E  47 

COC  6  6 □ C  FT  h 


FACE 


2 


FIST 

MEAN 

STANDV 


V3.C-F2B1  OPT  =  1  04/27/72  1 7  .  4 7  .  C 4 . 


REAL  F.F. 
INTEGFR  F.P. 
REAL  F.F. 
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SUBROUTINE  CICSTA 


COC  6630  FTN  V3.G-P2G1  OPT  =  l  04/27/72  17.47.3** 


PAGE 


1 


SLERCLTINE  CIDSTA  (ICSTAT) 

CIC 

1 

CCMHCN  /C  C  N 1  /  G,HF,IOAYS,K1,K2,N51,N,FRAME(350,17) ,FSHIF(150 

,6) , F IC IC 

2 

1ER  (2E,8>  , SHIP (150, 22)  ,STRFPM80,2> 

CIC 

3 

CIPENSION  IOST  AT  < 150 , 14, 2) 

CIC 

4 

INTEGER  HSHIP 

CIC 

5 

CC  110  J=1,K1 

CIC 

6 

IN=H<PIP(J,4) 

CIC 

7 

c 

8 

IF  (IN.EO.O)  GO  TO  10 

CIC 

9 

c 

10 

GC  TC  (30, 40, 50, 40, 30, 50, 40, 6  0, 50,80,70  , c0)  ,  IN 

CIC 

11 

c 

CN 

•••CIC 

12 

c 

13 

10 

IF  (HSHIP ( J,6) .EG.2I  GO  TO  20 

CIO 

14 

IF  (FSHIP(J,6)  • N  E  •  1 )  RETURN 

CIC 

15 

c 

16 

1=14 

CIC 

17 

GC  TC  100 

CIC 

18 

c 

19 

20 

1  =  12 

CIC 

20 

GC  TC  100 

CIC 

21 

C 

OR 

•♦CIC 

22 

c 

23 

30 

I=(SHIFU,  20)*10  0.  )/  100  .  . 

C  IC 

24 

GO  TC  100 

CIC 

25 

C 

AT 

••♦CIC 

26 

c 

♦••♦♦C IC 

27 

c 

28 

40 

I=(SHIF(J,20) ♦600.)/100. 

CIC 

29 

GO  TC  100 

CIC 

30 

C 

•••CIC 

31 

C 

•••♦•CIC 

32 

5  0 

1  =  4 

CIO 

33 

GO  TO  100 

CIC 

34 

C 

35 

60 

1=  5 

CIC 

36 

GC  TC  100 

CIO 

37 

C 

.0. 

H  •  CIO 

38 

70 

1=  (SHI  F  ( J  ,  20 )  ♦900.1/100. 

CIC 

39 

GO  TC  100 

CIO 

40 

C 

41 

eo 

1=  6 

CIC 

42 

GC  TC  100 

CIC 

*3 

c 

44 

c0 

1  =  13 

CIC 

45 

100 

ID  ST  A  T  (J,I,l)  =  l  +  IOSTAT  ( J , 1 , 1 ) 

CIC 

4  6 

no 

CCNTINUE 

CIC 

4  7 

RETURN 

CIC 

48 

ENC 

CIC 

49- 
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SUBROUTINE  CICSTA 


SYMBOLIC  REFERENCE  MAP 

ENTRY  POINTS 
2  CIOSTA 


VARIABLES  SN  TYFE  RELOCATION 


7 

FRAME 

REAL 

ARRAY 

COM1 

0 

1 

HF 

REAL 

COM1 

13505 

117 

I 

INTEGER 

2 

0 

ICSTAT 

INTEGER 

ARRAY 

F.P. 

116 

115 

J 

INTEGER 

3 

4 

K2 

INTEGER 

COM  1 

c 

6 

N 

INTEGER 

COM1 

15311 

15621 

SHIP 

REAL 

ARRAY 

COM  1 

24165 

STATEMENT  LABELS 

44 

10 

55 

20 

63 

40 

67 

50 

73 

70 

77 

80 

182 

100 

0 

110 

COMMON  BLOCKS  LENGTH 
COM!  1 0  El  7 


STATISTICS 

PROGRAM  LENGTH  1228  82 

COMMON  LENGTH  24425E  10517 


C DC  6 60  C  FTN  V3.C-P291  OPT  =  l  04/27/72  17. 47. 04. 


G 

REAL 

CCM 1 

HSHIP 

INTEGER 

ARRAY 

COM  1 

IDAYS 

INTEGER 

COM1 

IN 

INTEGER 

Ki 

INTEGER 

CCM1 

M51 

INTEGER 

CCM1 

FIER 

PEAL 

ARRAY 

CCM  1 

STREMN 

REAL 

ARRAY 

CC  Ml 

57 

30 

71 

60 

101 

50 

FACE  2 
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SUBROUTINE 


FRTFR 


CDC  660  Q  FTF  V3.Q-P291  OPT=l  04/27/72  17.47.04 


FAGE 


1 


10 


15 


20 


10 

C 

20 


30 


40 


SIERCUTINE  PRTFR  ( IFCR T , T T PC  A T , I  X >  JR1 

COMMON  /CO Ml/  G,HF,IOAYS,K1,K2,M51,N,FRAME(35Q,17),P5HI°(150,6),PIJR1 


1ER  (26,0)  ,  SHIP  (150*22)  , STR  p  MN  (60,2) 
CIMFNSION  I POR  T ( 2 ) 

CO  1C  1=1, K2 

IF  (MCC( I  ,50) .NE.l  )  GO  TO  10 
PRINT  20,  IPCRT , IT  HO AT ,IX 
PRINT  30 

PRINT  40,  I,(FRAME(I,J)  ,  J  =  1 , 1  7) 
RETURN 


JR1 
JR1 
JR1 
JR1 
JR1 
JR1 
JR  1 
JR  1 
JR1 

FORMAT  I1H1  ,T48  ,*FR  AMES  ANC  PIERS  *  ,2  A  8  ,  T  <36  ,  *  S  T  A  R  T  GAY  »,I5,  JR1 

1*  GUARTER  *,I3)  JRl 

FORMAT  (1HC,T5,*FRAME*,T14,*STATIS*,T2  3  ,*STEAM*,T31,*A.C .*,T30,*NFJR1 
lST*,T4S,MST*,T51,*2ND*,T57,*3RO*  ,T63  ,*4TH*,Tep,*5TH*,T75,»LAP»,T0JRl 
21,*STEAM*,T09,*A .C.* ,T96,*SHIP*,T103,*SHIP*,T110  ,»SHIP* ,T117,*NESTJR1 
3*,T126,*PIER*, /T  6,*NO.*,T 14, *  CCC  .=2»,T23,*AVAII*,T3O,*AVAIL*,T30,*JR1 
4AVAIl«,T45,*PR.*,T51,«PR*,T57,*PR  .* , T63 , *PR . *  ,  T 6 9  ,  *PR . * , T74 , *SEG  =  1 JR  1 
5*,T02,*IN*,T9O,*IN*,T97,*NC.*  ,T 1C3,*NAME*,T111  ,*SEG*,T117,*USEC*,TJR1 
6127,*NC.*,/T14,»NOT=1*,T74,*ENC=2»,T02,*ISE»,T6O,*ISE*,T111,*NC.»)JR1 
FORMAT  (1H  ,T6,I3,T17,F2.0,T23,F4.C,T29,F4.0,T38,F2.0,T45,F3.0,T51JR1 
l,F3.O,T57,F3.O,T63,F3.O,T69,F3.O,T76,F2.Q,T01,F4.O,T8e,F4.O,T9e,F4JRl 
2.0,T103,A4,T111,F3.0,T118,F3.0,T127,F3.0)  JRl 

ENC  JRl 


1 

2 

3 

4 

5 

6 
7 
0 
9 

10 
11 
12 
13 
1  4 

15 

16 
17 
10 

19 

20 
21 
22 
23 
24- 


SUBROUTINE  FRTFR 


04/27/72 


17.47.04 


PAGE 


2 


SYMBOLIC  REFERENCE  MAP 

ENTRY  POINTS 
2  PRTFR 


VARIABLES  SN 

TYPE 

RELCCATI 

7 

FRAME 

REAL 

ARRAY 

COM1 

1 

HF 

REAL 

COM  1 

165 

I 

INTEGER 

0 

I  PORT 

INTEGER 

ARRAY 

F.P 

8 

IX 

INTEGER 

F.P 

3 

K 1 

INTEGER 

COM1 

5 

M51 

INTEGER 

CO.M1 

15311 

PIER 

RFAL 

ARRAY 

COM1 

2*165 

STREMN 

REAL 

ARRAY 

C  ON  1 

FILE  NA 

iMES 

MCCE 

OUTPUT  * 

FMT 

INLINE 

fUNCTI^S 

TYFE 

ARGS 

MCO 

INTEGER 

2  INTRIN 

STATEMENT  LABELS 

37  10  £  0 

1*3  *0  FMT 


COC  6600  FT  N  V3.Q-P291  OPT  =  l 


0 

G 

REAL 

CCM1 

13505 

HSHIP 

REAL 

ARRAY 

CCM1 

2 

IOAYS 

INTEGER 

CCM1 

0 

ITHDAT 

INTEGER 

F.P 

166 

J 

INTEGER 

4 

K2 

INTEGER 

COM  1 

6 

N 

INTEGER 

CCM1 

15621 

SHIP 

REAL 

ARRAY 

CCM1 

FMT 

70 

30 

COMMON  BLOCKS  LENGTF 
COM1  1 0  El  7 

l  STATISTICS 

•-  FROGRAM  LENGTH  175E  125 

COMMON  LENGTH  24425B  10517 


FMT 
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SUBROUTINE  TFCNTP 


COC  EE3C  FT  h  V3.C-P291  OFT=l  04/27/72  17.47,04 


FAC-E 


1 


SUBROUTINE  TPCNTF  ( I  FCR  T  ,  I  TH  C  AY  ,  I J9A  ,  I X 

IDYLS 

T) 

TFC 

CCNNCN  /C OH 2/  IJl , IJ2 , 12J , IJ3 ,1 J4, I4J , IJ6, 

I J  7 

,ue,ijg,NG 

TP  C 

CINENSION  IPOR  T ( 2 ) 

TFC 

IF  (ITHOAY  .GT.IOYLST)  GO  TC  ICO 

TPC 

5 

IF  (IJ2.EQ.O.ANO.I2J.EC.G .ANC •IJ4.EO.O) 

GO 

TC 

3C 

TFC 

IF  (IJl. EG. 1)  GO  TO  90 

TPO 

10 

I N  C 1  =  I J2 

TFC 

INC2=I J2+I2J 

TFC 

IF  (ITHOAY. LT.INC1)  GO  TO  30 

TFC 

10 

IF  (ITHDAY.GE. INOl. AND. ITHOAY .LT .IN02) 

GC 

TO 

5  C 

TPC 

IF  (IJ3.EQ.0)  GO  TO  30 

TPC 

INC3=IN02+IJ3 

TPC 

IF  (ITHDAY  .GE. IN 0  2 . A  NO. ITHCAY .LT . IN0  3) 

GC 

TO 

3  C 

TPC 

IF  (IJ4.EQ.0)  GO  TO  30 

TPC 

15 

IN04= IND3 ♦ I J4 

TPC 

20 

IF  (ITHOAY  .GE. IND3.AN0.  IT  HD AY  .  LT  .  IN04 ) 

GC 

TO 

5  C 

TPC 

IF  (I4J.EQ.0)  GO  TO  30 

TPC 

INC5=IND4*I4J 

TPO 

IF  (ITHDAY.GE. INO 4. A  NO. ITHCAY .LT .IN05) 

GC 

TO 

3  C 

TPC 

20 

IND3=IN05 

TPO 

I  NC4  = IND3  ♦ I J  4 

TFC 

IF  (IN04.LE. IOYLST)  GO  TO  20 

TPO 

30 

I J9 A  =  0 

TPC 

.4  0 

IF  (ITHDAY. EQ.l)  IJ9A=1 

TPC 

25 

RETURN 

TPC 

50 

IF  ( IJ6.NE.1)  GO  TO  60 

TPO 

CALL  FRTHS  ( IP  CRT , IT HOA Y , I X) 

TPC 

EO 

IF  (IJ7.NE.1)  GO  TO  70 

TFC 

CALL  FRTFR  ( IP CRT , IT HOA Y , I X ) 

TPC 

30 

70 

IF  (IJ9.E0.1)  GO  TO  80 

TPC 

IJ9A=0 

TPC 

GO  TC  40 

TFC 

80 

IJ9A=1 

TPC 

GC  TC  110 

TPO 

35 

90 

I J  6=1 

TPC 

I  J7=  1 

TFC 

I  J9=  1 

TFC 

GO  TO  10 

TPO 

IOC 

FRINT  120,  ITHCAY 

TPC 

40 

STOP  115 

TPC 

no 

RETURN 

TPC 

c 

TPC 

120 

FORHAT  (1H0  ,25X,*VALUE  CF  CAY  TC  EE  PRINTEO 

,  EXCEEDS  ALLOHEO 

LENGTHTPC 

1  ITHOAY  VALUE  HAS  ♦  ,  16 )  TFC 

ENr  TP  C 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

i  i 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45- 


45 
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SIRSCUTTN-  TFCNTF 
SYMBOL IC  *EFESFNCF  MAP 


ENTRY  POINTS 
2  TPONTF 

VARIABLES 


a 

ICYLST 

l 

IJ2 

4 

IJt* 

7 

I  u  7 

i  * 

I  .'9 

1  "C 

TMD  l 

lf.J 

£  NQ3 

162 

IN05 

0 

ITHOAY 

2 

I2J 

12 

NC 

FILE  NAMES 

OUTPUT 

EXTERNALS 

PRTFR 


TYFE 
INTFGER 
INTEGER 
*'  JETER 
TMPGER 
INTEGER 
INTFGER 
INTEGER 
IK TEG JR 
INTEGER 
INTEGER 
INTEGER 

NCCE 

FMT 

TYPE  ARCS 


5N 


STATEMENT  LABELS 

20 

10 

66 

40 

115 

70 

127 

100 

COMMON 

BLOCKS  1 

C  CM2 

COG  6600  FT  K 


V3.0-F2B1  OP  T= 1 


04/27/72  17. 47. 04, 


RELCCATION 


F.P. 

0 

IJi 

COM2 

3 

IJ3 

COM2 

6 

IJ6 

COM2 

10 

IJfl 

COM2 

0 

IJ9A 

157 

IND2 

161 

IN04 

a 

IPO  RT 

F.P. 

0 

IX 

T0M2 

COM2 

5 

14  J 

INTEGER 

COM2 

INTEGER 

COM2 

INTEGER 

CCM2 

INTEGER 

CCM? 

INTEGER 

F  •  F 

INTEGER 

INTEGER 

INTEGER 

ARRAY 

F.P 

INTEGER 

F.P 

INTEGER 

CC  M2 

FpT  HS  T 


44 

2  v 

65 

75 

50 

105 

122 

BO 

124 

136 

110 

144 

FMT 


STATISTICS 

FROGRAH  LENGTH  1E5E  117 

COMMON  LENGTH  13B  11 


FACE  2 
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SI nROU  T INE  FR7HS 


con  eeoc  ftn  i?.c-F29i  opt  =  i  04/27/72  17.47*34. 


SLEFCU7INE  PRTHS  ( IPCRT , I T HE A Y , I > ) 

JR  1 

1 

CCHHCN  /CCH1/  G,HF,IDAYS,K1,K2,M51,N,FRAHE  (350,17)  ,  HSH  I  ^  <  1  50 , 6 ) 

,  F  I J  R  1 

2 

1ER(25,C),SHIF(150,22),STRFMN(PC,2) 

JR  1 

3 

C I  HE  N  S ICN  IPCRT ( 2 ) 

JR  1 

4 

5 

INTEGER  HSHIP 

JR  1 

5 

CC  1 c  0  1=1, K1 

JR  1 

6 

IF  ( MCC ( I , 50 ) .NE .1)  GO  TO  10 

JR  1 

7 

FRINT  200  ,  IFCRT , ITHHA  Y  ,  I Y 

JR  1 

8 

PRINT  210 

J  R  1 

9 

10 

10 

FRINT  220,  (SHIPCI, J) ,J=1 ,4) 

JR  1 

10 

c 

1  1 

IF  (FSFIP(I,2)  .GE.2)  GC  TC  4C 

JR  1 

12 

c 

JR  1 

1  3 

FRINT  230 

JR  1 

1  4 

15 

IF  (HSHIP  (1,4) .EG. 11)  GC  TC  20 

JR  1 

1  5 

GC  TC  60 

JR  1 

16 

c 

JR  1 

17 

20 

FRINT  240,  HSHIP (I, 3) 

J  R  1 

IS 

GC  TC  180 

JR  1 

19 

20 

c 

JR  1 

2C 

20 

FRINT  250  ,  HSH IP  C I , 3 ) 

JR  1 

2  1 

G  C  T  C  ICQ 

J  R  1 

22 

c 

*  JR  1 

23 

40 

IF  (HSHIP (I, 4) .EG. 12)  GO  TC  30 

JR  1 

2  4 

25 

PRINT  260  ,  HSH IP  ( 1 , 3 ) 

J  R  1 

25 

C 

CFS  ***************; 

26 

IF  <HSHIP(I,6)-1.FG.0>  GO  TC  50 

JR  1 

27 

c 

JR  1 

28 

PRINT  270 

JR  1 

29 

30 

GC  ic  iso 

JR  1 

30 

c 

JR  1 

31 

50 

FRINT  2C  0 

JR  1 

22 

C  C  T  C  ICO 

JR  1 

33 

6  0 

J=HSHIF(I,4) 

JR  1 

34 

35 

IF  (J.LE.O)  GO  TC  170 

JR  1 

35 

GC  IC  <70  ,P0, 9  0, 1  0  0  ,  1  1  0  ,  12  C,  1  30  ,  140,  150 , 16  0, 

ICC,  ICO) ,  J 

JR  1 

36 

C 

JR  1 

27 

70 

FRINT  ?90  ,  H SHIPCI, 3) , HSH IP ( I  ,5) 

JR  1 

38 

GC  TC  ICO 

JR  1 

39 

40 

C 

JR  1 

40 

CO 

FRINT  300  ,  HSHIP (I ,3> ,HSHIF (I  ,5) 

JR  1 

4  1 

GO  TC  ICO 

JR  1 

42 

c 

JR  1 

43 

c0 

FRINT  310,  HSHIP(I,3),HSHIP(I,5) 

JR  1 

4  4 

45 

GC  TC  ICO 

JR  1 

45 

c 

JR  1 

46 

10c 

FRINI  320  ,  HSHIP  (I ,3  )  ,HSHIF (I  ,5) 

JR  1 

47 

GC  TC  1*0 

JR  1 

48 

c 

JR  1 

49 

50 

11c 

FRINT  330  ,  HSH IP ( I , 3 ) , HSH IF ( I  ,5) 

JR  1 

50 

GC  IC  1*0 

JR  1 

51 

c 

JR  1 

52 

120 

FPINT  340  ,  HSHIP (I ,3  )  , HSH  IF (I  ,5) 

J  R  1 

C  1 

GC  TC  1*0 

J  R  1 

54 

55 

c 

PIPE  *  *  *  49  ¥  *  *  *  *  +  *  * 

JR  1 

55 

FAGF  1 
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SUBROUTINE  PRTHS 


CDC  66  0  C  FTN  V3.C-P291  OPT  =  l  C4/27/72  17.U7.3U. 


60 


65 


70 


75 


80 


85 


90 


95 


100 


13  C 

PRINT 

350,  HSHIP (I ,3 ) ,HSHIP (I ,5) 

JR  1 

56 

GC  TC 

180 

JR  1 

57 

C 

JR  1 

5  8 

140 

PRINT 

360,  HSHIP (1,3) , HSH I F ( I , 5 ) 

JR1 

5Q 

GC  TC 

180 

JR  1 

60 

C 

JR  1 

6  1 

150 

PR  INT 

370,  HSHIP (1,3) , HSHIP (I  ,5) 

JR  1 

62 

GO  TO 

180 

JR  1 

63 

C 

JR1 

6  4 

160 

PRINT 

380,  HSHIP (1,3 ) , HSHIP (I ,5) 

JR  1 

65 

GC  TC 

18  B 

JR  1 

66 

170 

FRINT 

390,  HSHIP (1,31 

JR  1 

67 

180 

IP=SHIP<I,20>/100. 

JR  1 

68 

IF  (IP 

.EQ.O.CR.HS HIP (1,21  . EC . 2)  GC  TO  190 

JR  1 

69 

PRINT 

400,  IF 

JR1 

70 

19C 

CONTINUE 

JR1 

71 

return 

JR  1 

72 

C 

JR  1 

73 

200 

FORMAT  (1H1  ,T48,*HOMEFCRTEC  SPIPS  * ,2 A  8 , T9  0 , * S T A R T  CAT  *,I5, 

JR  1 

74 

1*  GUARTER  *,I3) 

JR  1 

75 

210 

TORN AT (1H0,T2,*SHIP* ,  T 8 , * N AME * , T 1 4 ,* SEQ . * , T1 9 , 

JR  1 

76 

1  *CLASS*,T26,*IN  OUT * , T34  ,  *OA YS *  ,  T42 , * - 

. *, 

JR  1 

765 

2  T64 , *PIE  R  - *,T95,*FICH*, 

T1C2,*STREAM*,T110, 

JR1 

77 

3  *CVRH*,T119,*SHIP  CYCLE*  ,/T3,*NO»*,Tl4,*NO**, 

T18,*(l./2.3*, 

JR  1 

775 

4  T35,*T0*  ,T42,* - PIERSICE  ---*,T62, 

JR  1 

78 

5  *~  NESTED - *  ,T78  ,* - TENOER  --*,T95, 

JR  1 

79 

6  *FRAM€*,T117, *NCR  OP S* , T 1 28 , *E X T * ,/T 19 , *=TN C R ) *  ,T3 5  , 

JR1 

80 

7  *  GO*  , 

T42,*C.I.  NO  PART  NO* , T6 2 , *C .  I .  PART*, 

JR1 

81 

8  T73,*NO*,T78,*C.I.  PART  NC* ,T 1 19 ,*OUT * , T 1 2 6 , 

*OPS*,/ 

JR  1 

82 

9  T46,*C.I.UTIL  UTI L* , T 67 , *UT I L  U T IL* , T 8 3 , *UT It 

UTIL*) 

JR  1 

83 

220 

FORMAT 

(T2  ,F5. 0,T8, A4,T14,F3. 0,T20,F3.1J 

JR1 

84 

230 

FORMAT 

<1H+,T27,*X*> 

JR1 

86 

240 

FORMAT 

(1H+,T105,*X*,T33,I5) 

JR  1 

86 

250 

F  CRM  AT 

(1H+,T33,I5,T 112,*X*I 

JR  1 

07 

260 

FCRMAT 

(1H+,T30,*X*,T33,I5) 

JR1 

88 

270 

FORMAT 

(1H+,T12Q,*X*) 

JR  1 

89 

280 

FORMAT 

(1H+,T129,*X») 

JR  1 

90 

290 

FCRMAT 

(1H*,T43,*X*,T33,I5,T95,I4) 

JF1 

91 

3  0  G 

FCRMAT 

(1H*,T47,*X*,T33,I5,T95,I4) 

JR1 

92 

310 

FORMAT 

(1H+,T52,*X*, T33,I5,T95, 14) 

JP1 

93 

320 

FORMAT 

(1H*,T57,*X*,T33,I5,T95,I4> 

JR  1 

94 

330 

FCRMAT 

(1H  +  ,T63,*X*,T33  ,1 5  ,T9  5, 14) 

JR  1 

96 

340 

FCRMAT 

(1H*,T68,*X*,T33,I5,T95,I4) 

JR  1 

96 

350 

FORMAT 

( 1 H  +  , T  7  4, *X*,T33,I5,T95,I4) 

JR  1 

97 

36  G 

FORMAT 

(1H  +  ,T79,*X*,T33,I5  ,T 95,14) 

JR  1 

98 

370 

FCRMAT 

(1H*,T83,*X*,T33,IC  ,T95,I4) 

JR  1 

a  a 

380 

FCRMAT 

(1H»,T89,*X*,T33,I5,T95,I4) 

JR  1 

1C  9 

390 

FORMAT 

(1H+,T33,I5,T  120, *X*) 

JR  1 

101 

400 

FCRMAT 

(1H+,T39,*F*,I1) 

JR  1 

102 

ENO 

JR  1 

10  3- 
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St 3 ROUTINE  FRTHS 


SYMBOLIC  REFERENCE 

NAF 

ENTRY 

POINTS 

2 

PRTHS 

VARIABLES 

SN  TYFE 

RCLC  CA  TI CN 

7 

FRAME 

REAL 

ARPAY  COM1 

1 

HF 

REAL 

COM1 

514 

I 

INTEGER 

516 

IF 

INTEGER 

0 

ITHCA Y 

INTEGER 

F.P. 

515 

J 

INTEGER 

4 

K  2 

INTEGER 

COM1 

6 

N 

INTEGER 

COM  1 

15621 

SHIP 

RFAL 

ARRAY  COM  1 

FILE  NAMES 

MCCE 

OUTPUT 

Ff-T 

INLINE 

FUNCTIONS  TYFE 

ARCS 

M  CO 

INTEGER 

2  INTRIN 

STATEMENT  LABELS 

37 

10 

64 

100 

40 

121 

151 

70 

161 

201 

100 

211 

231 

130 

241 

261 

160 

271 

312 

190 

316 

406 

220 

FMT 

413 

421 

250 

FMT 

424 

432 

280 

FMT 

435 

445 

310 

FMT 

451 

461 

340 

FMT 

465 

475 

370 

FMT 

501 

.  510 

400 

FMT 

COMMON 

BLOCKS 

LENGTH 

COM1 

10617 

STATISTICS 

PROGRAM  LENGTH  525E  341 

COMMON  LENGTH  24425E  10517 


PAGE 
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CDC  6F3C  FTN  V3.0-F291  OFT-1  04/27/72  17.47.04. 


C 

G 

REAL 

COM 

1  3  505 

HSHIP 

INTEGER 

ARRAY 

CCM 

2 

IDAYS 

INTEGER 

CCM 

0 

IPORT 

INTEGER 

ARRAY 

F  . 

0 

IX 

INTEGER 

F  .1 

3 

K1 

INTEGER 

CCM 

c 

M51 

INTEGER 

CCM 

15311 

FIFR 

REAL 

ARRAY 

CCM 

24165 

STREMN 

REAL 

ARRAY 

CCM 

20 
50 
8  0 
110 
140 
170 

200  FMT 

230  FMT 

260  FMT 

2  9  0  FMT 

320  FMT 

350  Ff-T 

380  Ff-T 


72 

30 

125 

60 

171 

90 

221 

120 

251 

150 

276 

180 

326 

210 

FMT 

416 

240 

FMT 

427 

270 

FMT 

441 

300 

FMT 

455 

330 

FMT 

471 

3E0 

FMT 

505 

3°  0 

FMT 
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SUBROUTINE  FRTQTR 


rnc  6 ^ □ C  FTN  V3.0-P291  OP  T  =  1  C4/c7/72  17.47.04 


10 


15 


20 


25 


30 


35 


40 


45 


50 


55 


SUBROUTINE  PRTGTF  (NC,T'',iccRT,lCSTAT) 

CCMKCN  /CCMi/  G, HF, IDA YS,K1,K 2, M5i,N, FRA ME  (350,17) ,hSHIF  (150,6)  , 
1ER  (25,6)  ,  SHIP  (15  0,  *2)  ,cTr<F>N  (80,2 ) 

CIMEM  ICN  IPCR  f(  2),  ICSTAT(1CC,14,2) 

CTt'FKFTPN  1 3  L  M  0  1 1  .) 
n**‘  ■  sir*  frcnt ( i4) 

r  CHECK  IF  TIHF  TC  PRINT  FINAL  SUMMARY 

IF  ( TX  , GT  .NO)  GO  TO  40 

r  ****** ********  ADO-UP  COLUMNS  TO  GET  TOTALS  *********** 

CC  1C  J=1 , 14 
I S  U  M.  =  0 

CC  1C  1=1, K1 
ISLM=ISUM+TOST  AT ( I , J , 1 ) 

10  ISUMC U)  =  ISUM 

c  **************„  PRINT  QUARTERLY  SUMMARY  VALLES 

CC  30  1=1, Ki 

IF  (MCC(I,50) .NE.l)  GO  TO  20 
PRINT  110,  IP  C  RT , I  X 
PRINT  120 

20  FRINT  130,  (  SH IP  ( I , J )  , J  =  2, 4)  ,  (I C ST AT ( I , J  ,  1 > , J=  1  , 1 4 ) 

30  CONTINUE 

c  PRINT  TOTALS 

PRINT  140,  (ISUMO’(I)  ,1=1,14) 

IF  (IX.LT.NQ)  RETURN 

c  *********************  FRINT  FINAL  SUMMARY 

c  *********************  pRINT  ^CJCR  HEADER 

C  *********************  prjnt  minor  headers  ********************** 

C  ****************  print  FINAL  SUMMARY  VALLES  ******************** 

40  00  60  1=1, Ki 

IF  (MC0(I  ,50)  .NE.l)  GO  TO  50 
PRINT  150,  I PORT 
FRINT  120 

rn  PRINT  130,  (SHIP(I,J), J=?,4) ,  (TPC^AT(I,J,2)  ,J  =  1  ,14) 
tii  CCMINLF 

c  ****************  a^n-UF  COLUMNS  TC  GET  TOTALS  ****************** 

CC  60  J  =  1 , 1 4 
I SLM=  0 

CC  70  1=1, Ki 

70  ISUM=ISUM*IOST AT (I,J,2) 

6C  ISLMCC J)=ISUM 

FRINT  140,  (I5UMO(T> ,1=1,14) 

T  CT  AL=  C • 0 
CC  90  1=1,14 

c0  TCTAL=TOT  AL  +  ISUMC  (1) 

DC  100  1=1,14 

100  FRCNT (I)=1CO.*ISUMO(I) /TOT AL 

FRINT  160,  (PRCNT  (I)  ,1  =  1, 14) 

ST  C  F  2 
C 

110  FORMAT  <iHl,T14,2A8,T38,*SUMMARY  PY  QUARTFRS*yT72,*CUARTFR*,T82, 

113  ,T90  j* (NCN-CUMMULATIVE) *,T62,  * . *) 

1 2 C  FORMAT  (1HC  ,T20  ,* . AT  PIER  WITH  UTILITIES - 

1T63, AT  p  IE  R  WITHOUT  T88, 

2* - !  N  STREAM - *,/T20,* - PIERSICE 


04/c 

7/72 

CRT 

1 

FIFRT 

2 

PR  T 

3 

FRT 

4 

c  R  T 

5 

FRT 

6 

PR  T 

7 

FRT 

a 

li 

FRT 

12 

PR  T 

13 

FRT 

14 

PR  T 

15 

FF  T 

16 

PR  T 

17 

PR  I 

ia 

PR  T 

19 

PRT 

20 

PRT 

21 

PR-* 

22 

PRT 

2  S 

FRT 

2  4 

PRT 

25 

PRT 

26 

PRT 

27 

FRT 

aa 

PRT 

29 

PRT 

30 

PRT 

31 

PRT 

3  2 

PRT 

33 

PRT 

24 

PRT 

3  5 

PRT 

36 

PRT 

37 

PRT 

38 

PRT 

'39 

FRT 

40 

PRT 

41 

PPT 

42 

PRT 

43 

PRT 

44 

PRT 

45 

PRT 

46 

PRT 

47 

PRT 

4a 

PRT 

49 

FRT 

50 

PR  T 

51 

PRT 

52 

,  PRT 

C  "7 

PRT 

54 

PRT 

5  5 

FRT 

555 

PP7 

56 

«  i  % 
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SUBROUTINE  FRTQTR 


cnn  eeoc  fu  v2.c-F29i  opt  =  i  0^/27/72  17.t7.n4. 


60 


65 


70 


3  T6  2  *  * - UTIL  IT  IFS -  “  ,  T  1 1  2  ,  *ND9- *  ,  Ti  2  0  ,  *  I N  *  ,  T  129 ,  FRT 

4*CM,/T2,*MME*,T0,*SEC%Tt3  , *C L A SS* , T? 0  ,  FRT 

5* . .  C.I.  - *,T46,*PART*,T54,*AT*,T64,*KCR-*,  PR  T 

6T72,*FRF*,TU3,*CPS*,Tliq,*CVER-*,T12fl,*EXT-*,TPC,  FRT 

7  *PRE*,T09,*NOR-* ,T97,*PRE*,T105,*PRE* ,/T0,  PRT 

0*NC.*,  T20  ,*NCR-OPS»,T25,*STM>*,T30,*FOM*,T46  ,  PRT 

9*UTIL*,T52,*TEN0ER*,T64,*CFS*,T71,*STN0N*,  PRT 

=T0C,*RCH*,T09,*OFS*,Tq6,*STM:K*,TlC5,*PCH*,  PRT 

=T113, *CUT* ,T119,*HAUL*,T12fl,*CPS*,/T2>  PRT 

1 3  C  FORMAT  <T 2, A4,T7,F3.G,T14,F2.C,TZ1, 5(15, 3X),T62, 2(15, 3X),T00, 3(15, PRT 

12X),Tll2,2(I5,2X),T127,I5)  PRT 

1 4  G  FORMAT  ( 1H C  , T0 , *TOT ALS*  ,T 2 1 , 5 (I  5 , 3X) , T62 , 3 ( 15 , 2 X ) , T B P , 3 ( 15, 3X ) , T IIP R T 

12, 2( 15 ,2X)  ,  T 12  7 , 15)  PRT 

150  FORMAT  ( 1 H 1 , T 1 4 , 2  A  A , T 32 , * F IK  A L  SUMMARY  EY  *,  FRT 

1  T5 1 , *QL ARTFRS  FOP  ALL  CU ARTERS* , T  07 ,  FRT 

2  *  (CUMULATIVE)  *)  PRT 

16  C  FORMAT  (1H  ,T4,*FERCFNTAGE*,T21, 5  (F5. 1, 3X>  ,T  6  2 , 3  <  F  5 . 1 , 3  X )  ,T0fl,2(F5PRT 

1.1,3X),T112,2(F5.1,2X),T127,F5.1)  PRT 

ENO  FRT 


565 

5  7 
575 
50 

59 

60 
61 
62 

6  3 

64 

65 

66 
67 
60 
605 

69 

70 

71 

7  2- 


p  ecp 
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SUBROUTINE  FR  TOT  R  COC  eFOC  FTN  V3.0-F291  OPT=l  04/27/72  1  7  .47.04. 

SYMBOLIC  REFERENCE  MAP 

ENTRY  POINTS 
2  PRTQTR 


VARIABLES  SN  TYPE  RELOCATION 


7 

FRAME 

REAL 

ARRAY 

COM  1 

1 

HF 

REAL 

COM  1 

401 

I 

INTEGER 

0 

ICSTAT 

INTEGER 

ARRAY 

F.P 

400 

I  SUM 

INTEGER 

0 

IX 

INTEGER 

F.P 

3 

K 1 

INTEGER 

roMi 

5 

M  5 1 

INTEGER 

COM  1 

0 

NO 

INTEGER 

F.P 

421 

PRCNT 

REAL 

ARRAY 

24165 

STREMN 

REAL 

ARRAY 

COM1 

0 

G 

REAL 

CCM1 

135Q5 

HSHIP 

REAL 

ARRAY 

CCM1 

2 

10  AYS 

INTEGER 

CCM  1 

0 

IPORT 

INTEGER 

ARRAY 

F.P 

403 

ISUMO 

INTEGER 

ARRAY 

377 

J 

INTEGER 

4 

K2 

INTEGER 

CCM1 

6 

N 

INTEGER 

CCM  1 

15311 

PIER 

REAL 

.  ARRAY 

CCM1 

1562  1 

SHIP 

REAL 

ARRAY 

CCM1 

402 

TOTAL 

REAL 

FILE  NAMES  MCOE 

OUTPUT  FMT 


INLINE  FUNCTIONS  TYFE  ARGS 

MOO  INTEGER  2  INTRIN 


STATEMENT  LABELS 

0 

10 

54 

113 

40 

132 

0 

70 

0 

0 

100 

226 

326 

130 

FMT 

340 

364 

160 

FMT 

COMMON 

BLOCKS 

LENGTH 

CCM1 

10517 

20 

50 

eo 

no 

140 


FMT 

FMT 


0  30 

0  EO 
0  SO 

241  120  FMT 

351  150  FMT 


STATISTICS 

PROGRAM  LENGTH  457E  303 

COMMON  LENGTH  24425E  10517 


PAGE  3 


A-50 


CORE  MAE  1  7. *47.55  . 

NORMAL 

CONTROL 

CCC1CQ  C63JC2  C  :  G  0  c  c  coccoo 

- T IMF - 

LCAC  MCCF  --L1--L2-- 

---TYPE--- 

---CALL-- . 

F-H A  LCACER 

10C707  F  Vi  A  T  A  DLF  S 

07  5 A  53 

- FR  OGR  A  N- - 

--ACTRESS- 

--IAEELEC - CCMHCN — 

SHIPIN 

G  2  A  5 1*  0 

COM  1 

CCC100 

COM2 

C  2  A  5  2  5 

PLACE 

C5C562 

COMi 

COCIOO 

NORMAL 

C  5  2  7  66 

CIOSTA 

0  5  3  0 A5 

COMI 

CCC1CC 

PRTFR 

052167 

COMI 

CCC10G 

TFONTP 

C5236A 

COM2 

C2A625 

PRTHS 

053551 

COMI 

CG0100 

PRTQTR 

G  5  A  £  7  6 

COMI 

CCBIOO 

GETBA 

C  5  A 7  55 

SYSTEMS 

05 A77A 

ACGOERS 

C  5  5  7  7  A 

IN  PUT  C  $ 

0 5  E  0  07 

KOOERS 

C56123 

KRAKER? 

0  5  7  5  A  3 

OUTPTCf 

CE1E71 

RANOONE 

061365 

RANFS 

GM367 

SIOS 

06  137A 

- UNSATISFIEC  EXTERNALS -  P  EFERENCES 


APPENDIX  B 


MAJOR  ARRAYS 


Appendix  B  contains  definitions  of  the  components  of  the  major 
internal  computer  storage  arrays,, 


MAJOR  ARRAYS 


1. 


2. 


SHIP  (N,  1)  =  Ship  number 
SHIP  (N,  2)  =  Ship  name 
SHIP  (N,  3)  =  Sequence  number 
SHIP  (N,  4)  =  Ship  class  if  tender 

SHIP  (N,  5)  =  Mean  for  time  between  extended  operations 

SHIP  (N,  6)  =  Standard  deviation  for  time  between  extended  operations 

SHIP  (N,  7)  =  Mean  for  time  on  extended  operations 

SHIP  (N,  8)  =  Standard  deviation  for  time  on  extended  operations 

SHIP  (N,  9)  =  Mean  for  time  in  overhaul 

SHIP  (N,  10)  =  Standard  deviation  for  time  in  overhaul 

SHIP  (N,  11)  =  Mean  for  time  between  overhauls 

SHIP  (N,  12)  «  Standard  deviation  for  time  between  overhauls 

SHIP  (N,  13)  =  Days  at  tender  per  quarter 

SHIP  (N,  14)  =  AC  Power  required 

SHIP  (N,  15)  a*  Frames  required 

SHIP  (N,  16)  =  Steam  required 

SHIP  (N,  17)  =  Number  of  ships  which  can  nest  outside  ship 
SHIP  (N,  18)  =  AC  Power  furnishing  capability  (if  tender) 

SHIP  (N,  19)  =  Steam  furnishing  capability  (if  tender) 

SHIP  (N,  20)  =  Index 

SHIP  (N,  21)  =  Steam  being  used  (temporary  storage) 

SHIP  (N,  22)  =  Electric  power  being  used  (temporary  storage) 

HSHIP  (N,  1)  =  Ship  number 
HSHIP  (N,  2)  =  Port  status 

1  =  In  port 

2  =  Out  of  port 

HSHIP  (N,  3)  =  Duration  of  stay  in  present  status 


B-2 


HSHIP  (N,  4)  =  In  port  status 
0  =  Not  in  port 

1  =  Cold  iron-pierside 

2  =  Not  used 

3  =  Partial  utilities-pierside 

4  =  No  utilities-pierside 

5  =  Cold  iron-nested  at  pier 

6  =  Partial  utilities-nested  at  pier 

7  =  No  utilities-nested  at  pier 

8  =  At  tender 

9  =  Not  used 

10  =  Not  used 

11  =  In  stream 

12  =  In  overhaul 

HSHIP  (N,  5)  =  Highest  frame  occupied  by  ship 
HSHIP  (N,  6)  =  Present  state 

1  =  Extended  operations 

2  =  Normal  operations  (weekly  cycle) 

3  =  Overhaul 

4  =  30-day  stand-down 

5  =  POM 

6  =  Tender  supplying  utilities 

3.  FRAME  (N,  1)  =  Frame  status 

1  =  Available 

2  =  Occupied 

FRAME  (N,  2)  =  Steam  capability 
FRAME  (N,  3)  =  AC  Power ' capability 
FRAME  (N,  4)  =  Number  permitted  to  nest 

FRAME  (N,  5)  =  Index  of  ship  which  is  1st  preference  in  berth 

FRAME  (N,  6)  =  Index  of  ship  which  is  2nd  preference  in  berth 

FRAME  (N,  7)  =  Index  of  ship  which  is  3rd  preference  in  berth 

FRAME  (N,  8)  =  Index  of  ship  which  is  4th  preference  in  berth 
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4. 


FRAME  (N,  9)  =  Index  of  ship  which  is  5th  perference  in  berth 
99  =  No  ship  can  berth  there 
FRAME  (N,  10)  =  End  of  pier  code 

0  =  Frame  in  middle  of  pier 

1  =  Frame  at  beginning  of  pier 

2  =  Frame  at  end  of  pier 


FRAME 

(N, 

ID 

= 

Steam  in  use 

FRAME 

(N, 

12) 

AC  Power  in  use 

FRAME 

(N, 

13) 

Ship  number  berthed  pierside 

FRAME 

(N, 

14) 

= 

Ship  name  berthed  pierside 

FRAME 

(N, 

15) 

= 

Ship  sequence  number  berthed  pierside 

FRAME 

(N, 

16) 

= 

Number  of  ships  nested  at  frame 

FRAME 

(N, 

17) 

as 

Pier  number 

NODAYS 

(N, 

1) 

= 

Number  of  days  remaining  until  overhaul 

NODAYS 

(N, 

2) 

= 

Number  of  days  remaining  until  tender 

NODAYS 

(N, 

3) 

= 

Number  of  days  remaining  until  extended 

B-4 


APPENDIX  C 


SAMPLE  INPUT 

Appendix  C  contains  a  listing  of  the  data  for  a  sample  run. 


C-l 


n 

i 

K> 


'  END  OF  RECORD  MARKER  (7-8-9  PUNCH) 

OOO  SSNO  1000001  2OOlOOO5o"5OOO5o!5OO3OOOlOO21OOO7O0OOO3'inonn0n0Onn46n0000000 

2SS  SI2SIS^SSilSS;3SSIS:?§SS  s:  s  ks^ssssssssssss 

000  SSN04000001 200 1000 50.50005 o! 50070001 005 Jnnn^nnn^04100000000003 900000000 
000  SSNO  500000 1  200 1  000 50  •  5000  5 0.5 007 0001  005  l^ooo 70 oono4 10000000 000 3 900 000000 
000  SSN0600000 1200 100050  nonnso  30* 01 002 10007000n°A100000000003 900000000 

000  SSN07 000001200 10005o! 50005o! 50030001 002 lOOO^OOOOO^ooo00000003 900000000 

0011000054... 239999999991000000000  3000100^000700000^0000°000003900000000 
0021000054. ..239999999990000000000  0  0  01 

003 1000054. . .239999999990000000000  0  0  011 

0041000054. . .239999999990000000000  0  0  01 

0051000054. ..239999999990000000000  0  0  01 

0061000054.. .239999999990000000000  0  0  01 

0071000054.. .239999999990000000000  0  0  01 

00810°0054,. 4 23999999999200000°000  o  0001 
0091000054.. .046999999991000000000  000001 

0 101000054. . .046999999990000000000  0  0001 

0 11 1000054. ..046999999990000000000  0  0001 

0121000054.. .099999999990000000000  0  0001 

0131000054.. .099999999990000000000  0  0001 

0141000054.. .099999999990000000000  0  0  01 

0151000054.. .099999999990000000000  0  0  01 

0161 0000 54... 099999999992000000000  000 001 

0171000000000139999999991000000000  000002 

0181000000000139999999990000000000  0  0002 

0191000000000139999999990000000000  0  0002 

0201000000000139999999992000000000  0  0002 

0211000000000139999999991000000000  0  0002 

0221000000000139999999990000000000  0  0002 

0231000000000139999999990000000000  0  C002 

0241000000000139999999992000000000  000002 

0100000005400000000000000 
02000000000000 

'  END  OF  FILE  MARKER  <6-7-8-9  PUNCH) 


APPENDIX  D 


SAMPLE  OUTPUT 

Appendix  D  contains  the  computer  printout  produced  when 
using  the  sample  input  in  Appendix  C.  Page  D-2  is  a  table  of  the 
ships  in  the  model  and  their  characteristics.  Page  D-3  is  a  table 
of  the  frames  in  the  model  and  their  characteristics.  Page  D-4  is 
a  table  listing  the  status  of  each  ship  in  the  game  on  day  1,  quarter 
1.  Page  D-5  is  a  table  listing  the  status  of  each  frame  in  the  game 
on  day  1,  quarter  1.  Pages  D-4  and  D-5  can  be  listed  for  every  day 
as  explained  earlier.  Page  D-6  is  a  final  summary  page  which  can 
also  be  produced  for  each  quarter. 


SHIPS  HCMEFCRTEO 


SHIP  NC. 

N.AME 

SEC). 

CLASS 

NCR  -  OPS 

EXT  -  CPS 

IN  CVRHL 

NO. 

(DAYS) 

(DAYS) 

(DAYS) 

HE AN  S.D. 

HE AN  S.D. 

MEAN 

S.D. 

1. 

ASR 

1. 

0  .  c 

*EE70.  G. 

0*  G. 

9  C . 

15 

2. 

SSN 

1. 

c.c 

3EC.  30. 

150.  15. 

150. 

15 

3. 

SSN 

2. 

C  .  0 

360.  30. 

150.  15. 

150. 

15 

4. 

SSN 

3. 

C.C 

360.  30. 

150.  15. 

150. 

15 

5. 

SSN 

4. 

G.C 

360.  30. 

150.  15. 

150. 

15 

6. 

SSN 

5. 

C.  C 

360.  30. 

150.  15. 

150. 

15 

7. 

SSN 

e. 

0.0 

360.  30. 

150.  15. 

150. 

15 

6. 

SSN 

7. 

C.C 

360.  30. 

150.  15. 

15  0. 

15 

INADEQUATE  UTILITIES  FC  F  SHIP  1 


NEk  LOCCN  TEST 


BETWEEN 

CVFHL 

AT  TCR 

A  .C  . 

STM 

FR 

NEST 

A.C. 

STM 

FR 

(DAYS) 

(DA/QTR) 

NEEC 

NE  EC 

NEED 

MAX 

FLRN 

FURN 

meaf 

me. 

S.D. 

30. 

0. 

l.OC 

29. 

3. 

3. 

0.00 

0.  . 

*6. 

EOC. 

3  G  . 

21. 

7.CC 

0. 

4  . 

1. 

0.00 

0. 

39. 

EOC. 

30. 

21. 

7 . 0  C 

0. 

4. 

1. 

C.  00 

0. 

39. 

E  0  0  • 

30. 

21. 

7.  OC 

0. 

4. 

1  . 

0.00 

0. 

39. 

EOC. 

30. 

21. 

7  •  0  C 

0. 

4. 

1. 

0.00 

0. 

29. 

EOC. 

30. 

21. 

7.  CC 

0. 

4. 

1. 

C  .00 

0. 

29. 

E  0  0  • 

30. 

21. 

7 . 0  C 

0. 

4. 

1  . 

0.00 

0. 

29. 

E  0  0  • 

30. 

21. 

7.00 

0. 

4. 

1. 

0.00 

0. 

39. 

ft 


FRAMES 

A  NO  F  I EPS  NEN 

LCNCCN  TEST 

START 

CAY 

3 

QUARTER 

FRAME 

NO. 

STATLS 
OCC  .  =2 
NOT-1 

STEAM 

AVAIL 

A  .  C , 

AVAIL 

NEST 

AVAIL 

1ST 
PR  . 

2ND 

PR 

3RC 
PR  . 

4TH 

PR. 

5TH 
FR  . 

LAF 

9  E  G  =  i 

STEAM 

IN 

A.C. 

IN 

SHIP 

NC. 

ShlF 

NAME 

SHIP 

SEC 

NEST 

LSEO 

E  N  O  =  2 

USE 

USE 

NO  • 

1 

1  • 

C  . 

5  4  . 

2. 

39. 

99. 

99. 

99. 

99  . 

1. 

0. 

G  . 

C  . 

Q  . 
0  . 

C. 
0  . 

2 

1 . 

0  . 

5  4. 

2. 

39. 

99. 

99  . 

99. 

99. 

0. 

0. 

0 . 

0  . 

3 

1  • 

c. 

54. 

39. 

99. 

99  . 

99. 

99. 

0. 

0. 

Q . 

c  • 

0  . 

r 

u 

1 . 

G  • 

54. 

P  m 

39. 

09  . 

99. 

99. 

99  . 

0. 

0. 

0. 

0  • 

0. 
0  . 

L  . 

0  . 

5 

1. 

G  • 

54  . 

2. 

39. 

99. 

99  . 

99. 

99  . 

0. 

0. 

c  • 

Q  . 

0  . 

r 

6 

1 . 

C  . 

54. 

2. 

39. 

o  e  m 

99. 

9°  • 

99. 

0. 

0. 

0 . 

0  . 

t  . 

Q  • 

7 

1 . 

C  . 

54  . 

2. 

39. 

qc  . 

99  . 

99. 

99. 

0. 

0  . 

0  . 

0  • 

0  • 

n 

8 

1 . 

C  . 

54. 

?. 

39. 

99. 

9°  . 

99. 

99. 

2. 

0. 

0  . 

0  . 

0  • 

u  . 

n  . 

9 

1 . 

C  • 

54  . 

46. 

99. 

99  . 

99. 

99. 

1  . 

0. 

0  . 

0  • 

0  • 

u  . 

r 

10 

1. 

c . 

54. 

0. 

46. 

99  . 

99  . 

99. 

99. 

Q  . 

0. 

0 . 

0  . 

n 

L  . 

n 

1 1 

1 . 

c . 

54. 

a . 

46. 

99. 

99  . 

99. 

99  . 

0. 

0  . 

0  . 

0  • 

u  . 

n 

U  . 

n 

12 

1 . 

c. 

54. 

0. 

99. 

99. 

99  . 

99. 

°9  . 

0. 

0. 

0. 

0  • 

u  . 

n 

U  . 

n 

1 1 

1  «* 

1 . 

1. 

0. 

c. 

54. 

54. 

0. 

0. 

99. 

99. 

99  . 
99. 

99  . 
99. 

99. 

99. 

a  9  • 
99. 

0. 

0. 

0  . 

0  . 

0. 

0  • 

G  . 

0  . 

U  . 

0  . 

0  • 

u  . 

0. 

n 

15 

1  • 

c . 

54. 

3. 

99. 

99  . 

99. 

99. 

99  . 

0  . 

0  . 

0  . 

0  • 

0. 

0  . 

u . 

n 

1 6 

1 . 

0  • 

54. 

3. 

99  . 

99  . 

99  . 

99. 

99. 

2. 

0. 

0  • 

0  . 

u  . 

n 

17 

1  • 

0. 

0. 

1. 

39. 

99. 

99. 

99. 

99  . 

1. 

0. 

c . 

G  . 

0  . 

0  • 

u  * 

n 

18 

19 

1  • 

G  • 

0  . 

1 . 

39. 

99. 

99  . 

99. 

°9. 

0. 

a. 

c. 

0  . 

U  * 

n 

1  • 

c  • 

L  • 

1, 

39. 

99. 

99. 

99. 

99. 

0  . 

0. 

0  • 

0  • 

0  • 

u  . 

n 

20 

1 . 

c . 

?  • 

1. 

39. 

99  . 

99. 

99. 

°9  • 

2  . 

0  . 

0 . 

0  • 

n 

u  . 

n 

21 

22 

23 

1  • 

1.  * 

1. 

0. 
c . 
c. 

0. 

0. 

0. 

4 

1  . 

1. 

39. 

39. 

39. 

9°. 

99. 

99. 

99. 

99. 

99. 

99. 

99. 

99. 

99. 

99  • 
99. 

1. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0 . 

0. 

0. 

0  • 

U  . 

0. 

0. 

n 

u  . 

0. 

G. 

n 

24 

1 . 

c . 

0. 

1. 

39. 

99. 

99. 

99. 

99. 

2. 

0. 

G. 

c . 

u  . 

0  . 

U  • 

0. 

LEAVING  THE  ASSIGNMENT  STAGE 


0 


PIEF 
NO  . 

1 . 
1  . 
1. 
1  . 
1  . 
1  . 
1. 
1  . 
1  . 
1  . 
1. 
1. 
1. 
1  • 
1  . 


rororjpjrorororoH. 


HCMFFCRTEf  SHIPS  NEK  ICKCCN  TEST 


start  cay 


1 


QUARTER 


1 


SHIP 

NAME- 

SEQ  . 

CLASS 

IK 

CUT 

DAYS 

--  PIER . . 

HIGH  STREAM  OVPF 

NO. 

NO  . 

{ 1 • /?  •  3 

TO 

-  PIERSICE  - 

--  NESTrO  - 

-  TENDER  -- 

FR  AME 

=TKOR> 

GO 

C  .  I  .  NO  PART  K C 

C.T.  PART  K  C 

C.I.  PART  KC 

C. I. UTIL  UTIL 

UTIL  UTIL 

UTIL  UTIL 

1. 

ASR 

1  . 

0.0 

X 

? 

X 

11 

2. 

SSN 

1  . 

0.0 

X 

17 

PI 

X 

4 

3. 

SSN 

2. 

0  .0 

X 

4 

X 

4 

4. 

SSN 

3. 

0.0 

X 

1 

5. 

SSN 

4  . 

n  .o 

X 

8 

p? 

X 

8 

6. 

SSN 

5. 

0.0 

X 

72 

7. 

■SSN 

6  . 

0.0 

X 

68 

8. 

SSN 

7. 

0.0 

X 

2 

X 

4 

SHIP  CYCLE 
NCR  CFS  EXT 

CUT  OFS 


X 


X 

X 


J 


FRAMES 

AND  FIFOS  N c  N 

LCNCCN  TEST 

START 

CAY 

1 

1  A  R  T  p  R 

FRAMP 

STATES 

STF  AM 

a  .r . 

NCST 

1ST 

2  N  C 

IRC 

4  T  H 

5TF 

LAP 

STcAM 

A  .C. 

S  F  I  F 

S  F  IF 

SHIP 

N  E  S  T 

N  0  • 

OCC.-2 

AVAIL 

AVAIL 

AV  A  IL 

PR. 

PR 

PR  . 

aR. 

PR  . 

9  PG  =  1 

IN 

IN 

N'C  . 

MVF 

SEC 

LSEO 

N  0  T  =  1 

F  N  C  =  2 

USE 

LSF 

NC  . 

1 

2 . 

C  . 

5  4  • 

2. 

39. 

99. 

99  . 

99. 

99. 

1  . 

n. 

21. 

2  . 

SS* 

1  . 

2 . 

2 

2. 

C. 

5  4  • 

2. 

19  . 

Q9. 

99  . 

99. 

99  . 

0  . 

0. 

21  . 

2  . 

SCN 

1  . 

2  ■ 

3 

2. 

1  • 

54. 

2. 

39. 

99. 

99  . 

99. 

99. 

c. 

C. 

21. 

2  . 

c  S  N 

1  . 

2 . 

4 

2. 

t . 

54. 

? . 

39  . 

9°  . 

99. 

99. 

99  . 

G  . 

C. 

21  . 

2  ■ 

S^N 

1  . 

2 . 

5 

2  . 

c . 

54. 

2. 

39. 

99. 

99. 

99. 

99. 

G. 

0. 

7. 

c  m 

SSN 

4  . 

0  . 

6 

2. 

0  . 

54  . 

o , 

39. 

99  . 

99  . 

99. 

99  . 

C  • 

G  • 

7  . 

5  . 

SSN 

4  • 

L  . 

7 

2. 

c. 

54. 

2  # 

79  • 

9  9  . 

99  . 

99. 

°9  . 

0. 

G. 

7  . 

5  . 

SSN 

4  . 

c . 

P 

2. 

c . 

5  4, 

?. 
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INITIAL  DISTRIBUTION 


Copies 
1  NRL 

1  Naval  Academy 

1  Naval  Postgraduate  School 

1  Naval  War  College 

1  NAVAIRDEVCEN 

1  NELC 

1  NAVUSEARANDCEN 

1  NAVWPNSCEN 

1  CIVENGRLAB 

1  NOL 

1  NWL 

1  NAVUWSYSCEN 

5  NAVFACENGCOMHQ 

1  NAVFAC  201A 
3  NAVFAC  2011 
1  NAVFAC  20114 

1  NAVSHIPYD  BREM 

1  NAVSHIPYD  BSN 

'  1  NAVSHIPYD  CHASN 

1  NAVSHIPYD  HUNTERS  PT 

1  NAVSHIPYD  LBEACH 

1  NAVSHIPYD  MARE  ISLAND 

1  NAVSHIPYD  NORVA 

1  NAVSHIPYD  PEARL 

1  NAVSHIPYD  PHILA 

1  NAVSHIPYD  PTSMH 

2  DDC 

1  ARPA 

1  NAVSHIPSYSCOMHQ  (70) 

1  CNA 
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1 
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